{"thread":{"id":"20034","subject":"[PATCH 1/2] Remove archaic use of regex capture \\1 in favour of $1","startedAt":"2009-07-06T13:33:07Z","lastAt":"2009-07-06T13:33:07Z","messageCount":1,"participants":["Nick Woolley"],"isPatch":true,"patchVersion":1,"patchTotal":2},"messages":[{"id":"117505","messageId":"4A51FD13.3030708@noodlefactory.co.uk","threadId":"20034","inReplyTo":null,"subject":"[PATCH 1/2] Remove archaic use of regex capture \\1 in favour of $1","fromName":"Nick Woolley","fromEmail":"nick@noodlefactory.co.uk","sentAt":"2009-07-06T13:33:07Z","receivedAt":"2009-07-06T13:33:07Z","isPatch":true,"sender":{"key":"nick@noodlefactory.co.uk","avatar":null},"body":"Using it will generate a perl warning \"\\1 better written as $1\".\n\nSigned-off-by: Nick Woolley <git.wu-lee@noodlefactory.co.uk>\n---\n git-cvsexportcommit.perl |    2 +-\n 1 files changed, 1 insertions(+), 1 deletions(-)\n\ndiff --git a/git-cvsexportcommit.perl b/git-cvsexportcommit.perl\nindex a36df33..d509468 100755\n--- a/git-cvsexportcommit.perl\n+++ b/git-cvsexportcommit.perl\n@@ -299,7 +299,7 @@ foreach my $f (@files) {\n \twhile (<FILTER_IN>)\n \t{\n \t    my $line = $_;\n-\t    $line =~ s/\\$([A-Z][a-z]+):[^\\$]+\\$/\\$\\1\\$/g;\n+\t    $line =~ s/\\$([A-Z][a-z]+):[^\\$]+\\$/\\$$1\\$/g;\n \t    print FILTER_OUT $line;\n \t}\n \tclose FILTER_IN;\n-- \n1.6.3.3\n"}]}