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>
This commit is contained in:
Nick Woolley 2009-07-06 14:33:07 +01:00 коммит произвёл Junio C Hamano
Родитель 5d0e634343
Коммит 444f29ce42
1 изменённых файлов: 1 добавлений и 1 удалений

Просмотреть файл

@ -299,7 +299,7 @@ foreach my $f (@files) {
while (<FILTER_IN>)
{
my $line = $_;
$line =~ s/\$([A-Z][a-z]+):[^\$]+\$/\$\1\$/g;
$line =~ s/\$([A-Z][a-z]+):[^\$]+\$/\$$1\$/g;
print FILTER_OUT $line;
}
close FILTER_IN;