diff options
author | Karl Williamson <khw@cpan.org> | 2015-01-11 10:06:01 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2015-01-13 12:01:02 -0700 |
commit | 879eb60498cb197a521d2354c56143b2cff61deb (patch) | |
tree | 26fefc484bfa77f346b51fad0b0679cffd25b91e /dquote_static.c | |
parent | 776d1892d1402c59628f8b85b836ecd763000aa9 (diff) | |
download | perl-879eb60498cb197a521d2354c56143b2cff61deb.tar.gz |
Output warning in qr// only once
This warning is being output in both passes of pattern compilation
Diffstat (limited to 'dquote_static.c')
-rw-r--r-- | dquote_static.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/dquote_static.c b/dquote_static.c index 5fe7f0befb..906e1f7dc7 100644 --- a/dquote_static.c +++ b/dquote_static.c @@ -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; } |