From 0a60c50b0d38899c70f9f0ff158deeabef2e5071 Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Mon, 16 Dec 2013 06:04:29 -0800
Subject: Get optree_samples.t passing when PERL_UNICODE is set
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

The testing infrastructure knows to strip out the ‘open’ hints when
they do not apply.
---
 ext/B/t/optree_samples.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'ext/B')

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
-- 
cgit v1.2.1