This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Output warning in qr// only once
authorKarl Williamson <khw@cpan.org>
Sun, 11 Jan 2015 17:06:01 +0000 (10:06 -0700)
committerKarl Williamson <khw@cpan.org>
Tue, 13 Jan 2015 19:01:02 +0000 (12:01 -0700)
This warning is being output in both passes of pattern compilation

dquote_static.c
t/lib/warnings/toke

index 5fe7f0b..906e1f7 100644 (file)
@@ -223,7 +223,7 @@ S_grok_bslash_x(pTHX_ char **s, UV *uv, const char** error_msg,
     assert(**s == 'x');
     (*s)++;
 
-    if (strict) {
+    if (strict || ! output_warning) {
         flags |= PERL_SCAN_SILENT_ILLDIGIT;
     }
 
index cf0d020..4e15f75 100644 (file)
@@ -1480,11 +1480,8 @@ print "aq" =~ m[^a\[a-z\]$], "H\n";
 print "aq" =~ m(^a\(q\)$), "I\n";
 EXPECT
 Illegal hexadecimal digit '\' ignored at - line 5.
-Illegal hexadecimal digit '\' ignored at - line 5.
-Illegal hexadecimal digit '\' ignored at - line 7.
 Illegal hexadecimal digit '\' ignored at - line 7.
 Illegal hexadecimal digit '\' ignored at - line 9.
-Illegal hexadecimal digit '\' ignored at - line 9.
 A
 B
 1C