From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 23 Oct 2007 09:59:48 +0000 (+0000)
Subject: Silly Nick. If you see a nextstate op, then it may have open hints,
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2acfb4e0833ecffceb6641513a689981ca8cd637;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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__