Perl Linux::Inotify2 - 无法再响应事件

Question

我在使用 Linux::Inotify2 时遇到了一些非常奇怪的行为用于监视任何新创建文件的目录的模块。

我已经制作了一个测试脚本来查看它是如何工作的，完成后，我继续将它的用法合并到其他脚本中，但在其他脚本中它不起作用。然后，当我再次尝试我之前的测试脚本来查找一些信息时，奇怪的是它也停止了工作。从那以后就没用了。在那段时间没有包/发行版升级。

问题是它已经停止响应事件。这是测试脚本:

#!/usr/bin/perl

use strict;
use warnings;

use Linux::Inotify2;

my $inotify = new Linux::Inotify2 or die "unable to create new inotify object: $!";

my $dir = "/my/dir";

$inotify->watch($dir, IN_CREATE, sub {
    my $e = shift;
    print $e->fullname;
}) or die " Can't watch $!";

1 while $inotify->poll;

运行脚本上的 strace 会终止脚本。否则，在启动脚本时使用 strace 时，它​​似乎确实读取了新事件，但没有对这些事件的响应。有什么进一步调试的建议吗？

Answer 1

我忘了设置$|。