Remove archaic use of regex capture \1 in favour of $1
Using it will generate a perl warning "\1 better written as $1". Signed-off-by: Nick Woolley <git.wu-lee@noodlefactory.co.uk> Signed-off-by: Junio C Hamano <gitster@pobox.com>
Nick Woolley committed
Jul 6, 2009 at 14:33 UTC
444f29ce42a6de8e29a05f892f9ce5215cd38d56
1 file changed
+1
-1
git-cvsexportcommit.perl
+1
-1
@@ -299,7 +299,7 @@ foreach my $f (@files) {
299
while (<FILTER_IN>)
300
{
301
my $line = $_;
302
- $line =~ s/\$([A-Z][a-z]+):[^\$]+\$/\$\1\$/g;
302
+ $line =~ s/\$([A-Z][a-z]+):[^\$]+\$/\$$1\$/g;
303
print FILTER_OUT $line;
304
}
305
close FILTER_IN;