This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Some backslashes turn out not to be always there.
authorAbigail <abigail@abigail.be>
Sun, 18 Mar 2012 22:36:42 +0000 (23:36 +0100)
committerAbigail <abigail@abigail.be>
Sun, 18 Mar 2012 22:36:42 +0000 (23:36 +0100)
Porting/checkAUTHORS.pl

index 9b2fc8f..20a51d9 100755 (executable)
@@ -329,7 +329,7 @@ sub process {
 sub _raw_address {
     my $addr = shift;
     my $real_name;
-    if ($addr =~ /(?:\\")?\s*\(via RT\) <perlbug-followup\@perl\.org>$/p) {
+    if ($addr =~ /(?:\\?")?\s*\(via RT\) <perlbug-followup\@perl\.org>$/p) {
         my $name = ${^PREMATCH};
         $addr = 'perlbug-followup@perl.org';
         #