This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Silly Nick. If you see a nextstate op, then it may have open hints,
[perl5.git] / ext / B / t / optree_misc.t
index bd8b272..38712be 100644 (file)
@@ -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__