diff options
Diffstat (limited to 't/lib/warnings/toke')
| -rw-r--r-- | t/lib/warnings/toke | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/t/lib/warnings/toke b/t/lib/warnings/toke index 70ff3dbbf6..01e31f8612 100644 --- a/t/lib/warnings/toke +++ b/t/lib/warnings/toke @@ -727,3 +727,14 @@ no warnings 'ambiguous'; "@mjd_previously_unused_array"; EXPECT Possible unintended interpolation of @mjd_previously_unused_array in string at - line 3. +######## +# toke.c +# The \q should warn, the \_ should NOT warn. +use warnings 'misc'; +"foo" =~ /\q/; +"bar" =~ /\_/; +no warnings 'misc'; +"foo" =~ /\q/; +"bar" =~ /\_/; +EXPECT +Unrecognized escape \q passed through at - line 4. |