diff options
| author | Abigail <abigail@abigail.be> | 2012-03-18 23:36:42 +0100 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2012-03-18 23:36:42 +0100 |
| commit | 350bd8f1230fca459d025043f2a9a9f23b0c3537 (patch) | |
| tree | 860fa187878cfe7a5f2f64b9b38f44fe11f6d9b5 /Porting/checkAUTHORS.pl | |
| parent | e529a3872c59db57c97daa13c04fb14035b7fd66 (diff) | |
| download | perl-350bd8f1230fca459d025043f2a9a9f23b0c3537.tar.gz | |
Some backslashes turn out not to be always there.
Diffstat (limited to 'Porting/checkAUTHORS.pl')
| -rwxr-xr-x | Porting/checkAUTHORS.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Porting/checkAUTHORS.pl b/Porting/checkAUTHORS.pl index 9b2fc8f42b..20a51d9bf6 100755 --- a/Porting/checkAUTHORS.pl +++ b/Porting/checkAUTHORS.pl @@ -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'; # |