Tweak the test from 98517ccb8d5e8751 to work with PERL_UNICODE set.

One should always generate the golden B::Concise output with PERL_UNICODE set
so that ${^OPEN} is set, as the test system knows how to take it out, not put
it in.

diff --git a/ext/B/t/optree_misc.t b/ext/B/t/optree_misc.t
index c5d4e2e..f450e71 100644 (file)
--- a/ext/B/t/optree_misc.t
+++ b/ext/B/t/optree_misc.t
@@ -104,7 +104,7 @@ checkOptree ( name  => 'PMOP children',
              expect    => <<'EOT_EOT', expect_nt => <<'EONT_EONT');
 # 6  <1> leavesub[1 ref] K/REFC,1 ->(end)
 # -     <@> lineseq KP ->6
-# 1        <;> nextstate(main 1 -e:1) v:{ ->2
+# 1        <;> nextstate(main 1 -e:1) v:>,<,%,{ ->2
 # 3        </> subst(/"(a)"/ replstart->4) KS ->6
 # -           <1> ex-rv2sv sKRM/1 ->3
 # 2              <#> gvsv[*foo] s ->3
@@ -114,7 +114,7 @@ checkOptree ( name  => 'PMOP children',
 EOT_EOT
 # 6  <1> leavesub[1 ref] K/REFC,1 ->(end)
 # -     <@> lineseq KP ->6
-# 1        <;> nextstate(main 1 -e:1) v:{ ->2
+# 1        <;> nextstate(main 1 -e:1) v:>,<,%,{ ->2
 # 3        </> subst(/"(a)"/ replstart->4) KS ->6
 # -           <1> ex-rv2sv sKRM/1 ->3
 # 2              <$> gvsv(*foo) s ->3