diff options
author | Rhonda D'Vine <alfie> | 2002-02-18 09:31:34 +0000 |
---|---|---|
committer | Rhonda D'Vine <alfie> | 2002-02-18 09:31:34 +0000 |
commit | 95b2f5b575a199391b638eb7900aa4a5826cdcdd (patch) | |
tree | 32edbb018724a90a523255d3c3f75f8c7dea0237 /Perl | |
parent | 72882a948b792ca20686b6e39216868c211bcb67 (diff) |
Fixed skipdir handling to full-match only
CVS version numbers
Perl/Local/Cvsinfo.pm: 1.5 -> 1.6
Diffstat (limited to 'Perl')
-rw-r--r-- | Perl/Local/Cvsinfo.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Perl/Local/Cvsinfo.pm b/Perl/Local/Cvsinfo.pm index 08d12aa78ed..ed781ad67e2 100644 --- a/Perl/Local/Cvsinfo.pm +++ b/Perl/Local/Cvsinfo.pm @@ -211,7 +211,7 @@ sub _fix_skip { my $sub = "\$_ = shift; if (-d \$_) { return 1 if m{^(.*/)?CVS\$};"; ref($self->{OPTIONS}->{skipdir}) eq "ARRAY" and do { foreach (@{$self->{OPTIONS}->{skipdir}}) { - $sub .= "return 1 if m{$_};"; + $sub .= "return 1 if m{/$_\$};"; } }; $sub .= "return 0; }"; |