diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/warnings/toke | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/t/lib/warnings/toke b/t/lib/warnings/toke index faaf5bc6b8..83641e5106 100644 --- a/t/lib/warnings/toke +++ b/t/lib/warnings/toke @@ -1675,3 +1675,19 @@ Execution of - aborted due to compilation errors. use utf8; qw∘foo ∞ ♥ bar∘ EXPECT +######## +# NAME [perl #134064] +BEGIN { + if (ord('A') == 193) { + print "SKIPPED\n# test is ASCII-specific, but could be extended to EBCDIC"; + exit 0; + } +} +use utf8; +$foo="m'\302'"; +eval $foo ; +print "The eval did not crash the program\n" +EXPECT +OPTION regex +Malformed UTF-8 character: .*non-continuation.* +The eval did not crash the program |