# [PATCH 1/2] Remove archaic use of regex capture \1 in favour of $1

1 messages from 2009-07-06 to 2009-07-06. Participants: Nick Woolley.
Thread: https://gitlist.dev/t/20034

## Nick Woolley, 2009-07-06 13:33

Subject: [PATCH 1/2] Remove archaic use of regex capture \1 in favour of $1
Message-ID: <4A51FD13.3030708@noodlefactory.co.uk>
URL: https://gitlist.dev/e/4A51FD13.3030708%40noodlefactory.co.uk

```
Using it will generate a perl warning "\1 better written as $1".

Signed-off-by: Nick Woolley <git.wu-lee@noodlefactory.co.uk>
---
 git-cvsexportcommit.perl |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/git-cvsexportcommit.perl b/git-cvsexportcommit.perl
index a36df33..d509468 100755
--- a/git-cvsexportcommit.perl
+++ b/git-cvsexportcommit.perl
@@ -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;
-- 
1.6.3.3

```