fix quoting of characters in regex: Fuse::DBI will now work correctly with

[Fuse-DBI] / DBI.pm

diff --git a/DBI.pm b/DBI.pm
index c94a5e3..ddc083f 100755 (executable)
--- a/DBI.pm
+++ b/DBI.pm
@@ -342,7 +342,7 @@ sub e_getdir {
        my %out;
        foreach my $f (sort keys %files) {
                if ($dirname) {
-                       if ($f =~ s/^\E$dirname\Q\///) {
+                       if ($f =~ s/^\Q$dirname\E\///) {
                                $out{$f}++ if ($f =~ /^[^\/]+$/);
                        }
                } else {