diff options
Diffstat (limited to 't/op')
| -rw-r--r-- | t/op/evalbytes.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/t/op/evalbytes.t b/t/op/evalbytes.t index cca7c04787..5e2af76d21 100644 --- a/t/op/evalbytes.t +++ b/t/op/evalbytes.t @@ -6,7 +6,7 @@ BEGIN { require './test.pl'; require './charset_tools.pl'; } -plan(tests => 8); +plan(tests => 9); { local $SIG{__WARN__} = sub {}; @@ -33,3 +33,7 @@ chop($upcode = "use utf8; $U_100" . chr 256); is evalbytes $upcode, chr 256, 'use utf8 within evalbytes on utf8 string'; eval { evalbytes chr 256 }; like $@, qr/Wide character/, 'evalbytes croaks on non-bytes'; + +eval 'evalbytes S'; +ok 1, '[RT #129196] evalbytes S should not segfault'; + |