Parent Directory | Revision Log | Patch
revision 31 by dpavlin, Sun Oct 10 19:33:23 2004 UTC | revision 32 by dpavlin, Mon Nov 15 20:45:03 2004 UTC | |
---|---|---|
# | Line 342 sub e_getdir { | Line 342 sub e_getdir { |
342 | my %out; | my %out; |
343 | foreach my $f (sort keys %files) { | foreach my $f (sort keys %files) { |
344 | if ($dirname) { | if ($dirname) { |
345 | if ($f =~ s/^\E$dirname\Q\///) { | if ($f =~ s/^\Q$dirname\E\///) { |
346 | $out{$f}++ if ($f =~ /^[^\/]+$/); | $out{$f}++ if ($f =~ /^[^\/]+$/); |
347 | } | } |
348 | } else { | } else { |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |