diff options
| author | Peter Karlsson <peterk> | 2002-06-14 20:50:51 +0000 |
|---|---|---|
| committer | Peter Karlsson <peterk> | 2002-06-14 20:50:51 +0000 |
| commit | cdc691c2945f23f9f1a31954eb35ea2b0a0d55dd (patch) | |
| tree | 644868758a048b458eac5e7911d58986d7f1fdc1 /Perl | |
| parent | a1b52d03b42ec2683cbe386a9a6f2aedb7413370 (diff) | |
Don't barf on sticky tags
CVS version numbers
Perl/Local/Cvsinfo.pm: 1.6 -> 1.7
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 ed781ad67e2..3e798917e86 100644 --- a/Perl/Local/Cvsinfo.pm +++ b/Perl/Local/Cvsinfo.pm @@ -181,7 +181,7 @@ sub readinfo { push (@{$self->{DIRS}}, $entry); push (@heredir, $entry); $self->_verbose("Found directory: $entry"); - } elsif (m|^/([^/]+)/([^/]+)/([^/]+)/([^/]*)/$|) { + } elsif (m|^/([^/]+)/([^/]+)/([^/]+)/([^/]*)/(?:T[^/]+)?$|) { $entry = $dir."/".$1; next if $self->_skippable($entry) or ! -f $entry; $self->{FILES}->{$entry} = { |