--- trunk/DBI.pm	2004/10/10 19:33:23	31
+++ trunk/DBI.pm	2004/11/15 20:45:03	32
@@ -342,7 +342,7 @@
 	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 {