diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-11-26 15:47:43 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2012-03-25 14:25:46 -0700 |
commit | f232b41c679f24b875f6f23a4abe659b0c946942 (patch) | |
tree | c4a4ee97a8d89c9012e175d7988b240095ee42ea | |
parent | 5db1eb8d3ecc607380cd43267d08149b82822fe9 (diff) | |
download | perl-f232b41c679f24b875f6f23a4abe659b0c946942.tar.gz |
Fix test failure
This fixes up tests added in the previous commit, making them take
evalbytes into account. Those tests were originally written in a
branch where evalbytes didn’t exist and the unicode_eval feature
was implicitly enabled.
-rw-r--r-- | t/uni/labels.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/uni/labels.t b/t/uni/labels.t index 8cb1ac4bde..e3ff938174 100644 --- a/t/uni/labels.t +++ b/t/uni/labels.t @@ -11,7 +11,7 @@ BEGIN { use utf8; use open qw( :utf8 :std ); use warnings; -use feature 'unicode_strings'; +use feature qw 'unicode_strings evalbytes'; use charnames qw( :full ); @@ -36,7 +36,7 @@ SKIP: { LOOP: { Encode::_utf8_off($prog); - eval $prog; + evalbytes $prog; like $@, qr/^Unrecognized character/, "..but turn off the UTF-8 flag and it explodes"; } } |