[perl.git] branch blead, updated. v5.17.7.0-248-g64bb98a

[Nicholas Clark]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/64bb98afbbc7c215df7bc389ce005faffa473132?hp=074331bb276f0a3ccd2f459327a9d9d5e39de87d>

- Log -----------------------------------------------------------------
commit 64bb98afbbc7c215df7bc389ce005faffa473132
Author: Nicholas Clark <n...@ccl4.org>
Date:   Fri Jan 11 11:07:53 2013 +0100

    Tweak the test from 2721a2ca2e5e889d to work with PERL_UNICODE set.
-----------------------------------------------------------------------

Summary of changes:
 ext/B/t/optree_misc.t |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/ext/B/t/optree_misc.t b/ext/B/t/optree_misc.t
index 6efecdc..f012a50 100644
--- a/ext/B/t/optree_misc.t
+++ b/ext/B/t/optree_misc.t
@@ -437,12 +437,12 @@ checkOptree ( name      => 'm?x?',
              expect    => <<'EOT_EOT', expect_nt => <<'EONT_EONT');
 # 3  <1> leavesub[1 ref] K/REFC,1 ->(end)
 # -     <@> lineseq KP ->3
-# 1        <;> nextstate(main 914 optree_misc.t:434) v:{ ->2
+# 1        <;> nextstate(main 914 optree_misc.t:434) v:>,<,%,{ ->2
 # 2        </> match(/"x"/) /RTIME ->3
 EOT_EOT
 # 3  <1> leavesub[1 ref] K/REFC,1 ->(end)
 # -     <@> lineseq KP ->3
-# 1        <;> nextstate(main 914 optree_misc.t:434) v:{ ->2
+# 1        <;> nextstate(main 914 optree_misc.t:434) v:>,<,%,{ ->2
 # 2        </> match(/"x"/) /RTIME ->3
 EONT_EONT
 

--
Perl5 Master Repository