diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-06-02 10:55:49 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-06-02 10:59:09 -0700 |
| commit | ba05d9aa44289620c9265dde65c83402e0ebfd00 (patch) | |
| tree | ad2605f992eb3d32ea8eaaab80aee54dddbcea46 /t | |
| parent | 35a99a0826369f896a38d2665db827253fc91e46 (diff) | |
| download | perl-ba05d9aa44289620c9265dde65c83402e0ebfd00.tar.gz | |
[perl #4362] Test for ‘Can't find terminator’
Diffstat (limited to 't')
| -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 |