diff options
| author | Bas Zoetekouw <bas> | 2008-12-19 18:20:11 +0000 |
|---|---|---|
| committer | Bas Zoetekouw <bas> | 2008-12-19 18:20:11 +0000 |
| commit | c8c56c64e29f76aed1a7d4facd891ab5993c0259 (patch) | |
| tree | 3167d9b581c23aa5086893be1644a2084e91a8c5 /Perl | |
| parent | 335f8e8cee86846d21983d990a480cdfdd31ba38 (diff) | |
Apply the skip_pat of vcs_path_info() to the _relative_ filename
CVS version numbers
karma.pl: 1.4 -> 1.5
Perl/Local/VCS_CVS.pm: 1.10 -> 1.11
Diffstat (limited to 'Perl')
| -rw-r--r-- | Perl/Local/VCS_CVS.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Perl/Local/VCS_CVS.pm b/Perl/Local/VCS_CVS.pm index 57d52295487..c41a6866588 100644 --- a/Perl/Local/VCS_CVS.pm +++ b/Perl/Local/VCS_CVS.pm @@ -228,13 +228,13 @@ sub vcs_path_info my %data; for my $file (keys %{$cvs->{FILES}}) { - # skip files that match the skip pattern - next if $skip_pat and $file =~ m{$skip_pat}; - # we return relative paths, so strip off the dir name my $file_rel = $file; $file_rel =~ s{^$dir/?}{}; + # skip files that match the skip pattern + next if $skip_pat and $file_rel =~ m{$skip_pat}; + $data{$file_rel} = { 'cmt_rev' => $cvs->{FILES}->{$file}->{'REV'}, 'cmt_date' => str2time( $cvs->{FILES}->{$file}->{'DATE'} ), |