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

parens and other characters which have special meaning in regexps

git-svn-id: svn://svn.rot13.org/fuse_dbi/trunk@32 17f4e80c-d0e0-0310-8903-bfc3ae804c12

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) {
        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 {
                                $out{$f}++ if ($f =~ /^[^\/]+$/);
                        }
                } else {