diff options
| author | Dan Collins <dcollinsn@gmail.com> | 2016-09-04 14:43:41 -0400 |
|---|---|---|
| committer | Steve Hay <steve.m.hay@googlemail.com> | 2017-08-23 21:08:29 +0100 |
| commit | 2ee27a02f718edea678281f8c9d41917213a838a (patch) | |
| tree | d565892e321737bbfaf918d65b06dfa0186b891c /t/op | |
| parent | bb61e92664e21587d583013483e38a7804164da1 (diff) | |
| download | perl-2ee27a02f718edea678281f8c9d41917213a838a.tar.gz | |
Regression test for RT #129196
(cherry picked from commit a6128716d2cc20147851e0a37768376647bd3242)
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'; + |