diff options
| author | Dan Collins <dcollinsn@gmail.com> | 2016-09-04 14:43:41 -0400 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2016-09-04 21:29:48 -0700 |
| commit | a6128716d2cc20147851e0a37768376647bd3242 (patch) | |
| tree | 4c8a45e2e2051d9991e4ab94fb6bfca20912ac78 /t | |
| parent | 9bde56224e82f20e7a65b3469b1ffb6b9f6d4df8 (diff) | |
| download | perl-a6128716d2cc20147851e0a37768376647bd3242.tar.gz | |
Regression test for RT #129196
Diffstat (limited to 't')
| -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 9b77c8e068..9a09ba98e2 100644 --- a/t/op/evalbytes.t +++ b/t/op/evalbytes.t @@ -7,7 +7,7 @@ BEGIN { require './charset_tools.pl'; } -plan(tests => 8); +plan(tests => 9); { local $SIG{__WARN__} = sub {}; @@ -34,3 +34,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'; + |