Silly Nick. If you see a nextstate op, then it may have open hints,

and you need to test it with Unicode locales.

p4raw-id: //depot/perl@32177

diff --git a/ext/B/t/optree_misc.t b/ext/B/t/optree_misc.t
index bd8b272..38712be 100644 (file)
--- a/ext/B/t/optree_misc.t
+++ b/ext/B/t/optree_misc.t
@@ -72,7 +72,7 @@ EONT_EONT
 my $t = <<'EOT_EOT';
 # 8  <@> leave[1 ref] vKP/REFC ->(end)
 # 1     <0> enter ->2
-# 2     <;> nextstate(main 1 -e:1) v:{ ->3
+# 2     <;> nextstate(main 1 -e:1) v:>,<,%,{ ->3
 # 7     <2> sassign vKS/2 ->8
 # 5        <@> index[t2] sK/2 ->6
 # -           <0> ex-pushmark s ->3
@@ -84,7 +84,7 @@ EOT_EOT
 my $nt = <<'EONT_EONT';
 # 8  <@> leave[1 ref] vKP/REFC ->(end)
 # 1     <0> enter ->2
-# 2     <;> nextstate(main 1 -e:1) v:{ ->3
+# 2     <;> nextstate(main 1 -e:1) v:>,<,%,{ ->3
 # 7     <2> sassign vKS/2 ->8
 # 5        <@> index[t1] sK/2 ->6
 # -           <0> ex-pushmark s ->3
@@ -101,6 +101,7 @@ if ($] < 5.009) {
 
 checkOptree ( name      => 'index and PVBM',
              prog      => '$_ = index "foo", "foo"',
+             strip_open_hints => 1,
              expect    => $t,  expect_nt => $nt);
 
 __END__