Some backslashes turn out not to be always there.

diff --git a/Porting/checkAUTHORS.pl b/Porting/checkAUTHORS.pl
index 9b2fc8f..20a51d9 100755 (executable)
--- a/Porting/checkAUTHORS.pl
+++ b/Porting/checkAUTHORS.pl
@@ -329,7 +329,7 @@ sub process {
 sub _raw_address {
     my $addr = shift;
     my $real_name;
 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';
         #
         my $name = ${^PREMATCH};
         $addr = 'perlbug-followup@perl.org';
         #