diff options
| -rw-r--r-- | t/lib/warnings/toke | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/t/lib/warnings/toke b/t/lib/warnings/toke index 9c33e71204..b7653ce774 100644 --- a/t/lib/warnings/toke +++ b/t/lib/warnings/toke @@ -972,3 +972,11 @@ Regexp modifiers "/l" and "/a" are mutually exclusive at - line 4, near "= " Regexp modifier "/l" may not appear twice at - line 5, near "= " Regexp modifier "/a" may appear a maximum of twice at - line 7, near "= " BEGIN not safe after errors--compilation aborted at - line 8. +######## +# toke.c +# [perl #4362] +eval "print q\xabfoo"; +print "ok\n" if + $@ =~ /Can't find string terminator "\xab" anywhere before EOF/; +EXPECT +ok |