Fix event emitting from empty directories

There was no event emitted if the last entry from a
directory was removed. Keep track of all directories
in a specific location (`.`) inside the fs hash.

Author: mgreter

lib/Filesys/Notify/Simple.pm

@@ -201,7 +201,8 @@ sub _full_scan {
         File::Find::finddepth({
             wanted => sub {
                 my $fullname = $File::Find::fullname || File::Spec->rel2abs($File::Find::name);
-                $map{Cwd::realpath($File::Find::dir)}{$fullname} = _stat($fullname);
+                my $stat = $map{Cwd::realpath($File::Find::dir)}{$fullname} = _stat($fullname);
+                $map{$path}{$fullname} = $stat if $stat->{is_dir}; # keep track of directories
             },
             follow_fast => 1,
             follow_skip => 2,

t/empty_dir.t

@@ -0,0 +1,70 @@
+use strict;
+use Filesys::Notify::Simple;
+use Test::More;
+use Test::SharedFork;
+use File::Temp qw( tempdir );
+
+use FindBin;
+
+plan tests => 2;
+
+my $dir = tempdir( DIR => "$FindBin::Bin/x" );
+my $w = Filesys::Notify::Simple->new([ "$dir" ]);
+
+mkdir "$dir/root";
+
+
+my $pid = fork;
+if ($pid == 0) {
+    Test::SharedFork->child;
+    sleep 1;
+    note "mkdir subroot\n";
+    mkdir "$dir/subroot";
+    # sleep 1;
+    # note "mkdir subroot/deep\n";
+    # mkdir "$dir/subroot/deep";
+    # sleep 1;
+    # note "mkdir subroot/deep/down\n";
+    # mkdir "$dir/subroot/deep/down";
+    # sleep 1;
+    # note "rmdir subroot/deep/down\n";
+    # rmdir "$dir/subroot/deep/down";
+    # sleep 1;
+    # note "rmdir subroot/deep\n";
+    # rmdir "$dir/subroot/deep";
+    sleep 1;
+    note "rmdir subroot\n";
+    rmdir "$dir/subroot";
+} elsif ($pid != 0) {
+    Test::SharedFork->parent;
+    my $event;
+    alarm 10;
+    note "wait mkdir subroot\n";
+    $w->wait(sub { $event = shift });
+    like $event->{path}, qr/subroot/;
+    # alarm 10;
+    # note "wait mkdir subroot/deep\n";
+    # $w->wait(sub { $event = shift });
+    # like $event->{path}, qr/subroot[\/\\]deep/;
+    # alarm 10;
+    # note "wait mkdir subroot/deep/down\n";
+    # $w->wait(sub { $event = shift });
+    # like $event->{path}, qr/subroot[\/\\]deep[\/\\]down/;
+    # alarm 10;
+    # note "wait rmdir subroot/deep/down\n";
+    # $w->wait(sub { $event = shift });
+    # like $event->{path}, qr/subroot[\/\\]deep[\/\\]down/;
+    # alarm 10;
+    # note "wait rmdir subroot/deep\n";
+    # $w->wait(sub { $event = shift });
+    # like $event->{path}, qr/subroot[\/\\]deep/;
+    alarm 10;
+    note "wait rmdir subroot\n";
+    $w->wait(sub { $event = shift });
+    like $event->{path}, qr/subroot/;
+    waitpid $pid, 0;
+} else {
+    die $!;
+}
+
+