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{$fullname}{$fullname} = $stat if $stat->{is_dir}; # keep track of directories
             },
             follow_fast => 1,
             follow_skip => 2,

t/empty_dir.t

@@ -0,0 +1,37 @@
+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([ "lib", "$dir" ]);
+
+mkdir "$dir/root";
+
+
+my $pid = fork;
+if ($pid == 0) {
+    Test::SharedFork->child;
+    sleep 3;
+    mkdir "$dir/subroot";
+    sleep 3;
+    rmdir "$dir/subroot";
+} elsif ($pid != 0) {
+    Test::SharedFork->parent;
+    my $event;
+    for (1..2) {
+        alarm 10;
+        $w->wait(sub { $event = shift });
+        like $event->{path}, qr/subroot/;
+    }
+    waitpid $pid, 0;
+} else {
+    die $!;
+}
+
+