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

2 files changed, 4 insertions, 4 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'} ),
diff --git a/karma.pl b/karma.pl
index 21fc016474b..ba3f2e48e20 100755
--- a/karma.pl
+++ b/karma.pl
@@ -42,7 +42,7 @@ my %Karma;
 
 # include only files matching $filename
 my $MATCH = '(\.wml$)|(\.html$)';
-my $SKIP  = '/template/';
+my $SKIP  = '^template/';
 
 # parse command line;
 die("Please specify a language to examine\n")  if not @ARGV;