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.
[perl5.git] / 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';
         #