diff options
author | Father Chrysostomos <sprout@cpan.org> | 2013-12-16 06:04:29 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2013-12-16 06:04:29 -0800 |
commit | 0a60c50b0d38899c70f9f0ff158deeabef2e5071 (patch) | |
tree | 3871b5041181d38420a5536ace328baf33024f4e /ext/B | |
parent | f17522ddf542dc9707b5c0981d8178ea947fdf76 (diff) | |
download | perl-0a60c50b0d38899c70f9f0ff158deeabef2e5071.tar.gz |
Get optree_samples.t passing when PERL_UNICODE is set
The testing infrastructure knows to strip out the ‘open’ hints when
they do not apply.
Diffstat (limited to 'ext/B')
-rw-r--r-- | ext/B/t/optree_samples.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/B/t/optree_samples.t b/ext/B/t/optree_samples.t index 82fe192bf8..bc682e4115 100644 --- a/ext/B/t/optree_samples.t +++ b/ext/B/t/optree_samples.t @@ -644,11 +644,11 @@ checkOptree ( name => '-exec sub { return 1 }', bcopts => '-exec', strip_open_hints => 1, expect => <<'EOT_EOT', expect_nt => <<'EONT_EONT'); -# 1 <;> nextstate(main 1 -e:1) v +# 1 <;> nextstate(main 1 -e:1) v:>,<,% # 2 <$> const[IV 1] s # 3 <1> leavesub[1 ref] K/REFC,1 EOT_EOT -# 1 <;> nextstate(main 1 -e:1) v +# 1 <;> nextstate(main 1 -e:1) v:>,<,% # 2 <$> const(IV 1) s # 3 <1> leavesub[1 ref] K/REFC,1 EONT_EONT |