In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/1473b834ebd652a4760a26fad191500e74ac05e5?hp=ed2b02642a84b0315c0e7a3d37c7f73fc1066e9b>
- Log ----------------------------------------------------------------- commit 1473b834ebd652a4760a26fad191500e74ac05e5 Author: Nicholas Clark <[email protected]> Date: Tue Aug 14 12:22:45 2012 +0200 Tweak the test from 35f7559499c4a614 to work with PERL_UNICODE set. ----------------------------------------------------------------------- Summary of changes: ext/B/t/optree_misc.t | 8 ++++---- 1 files changed, 4 insertions(+), 4 deletions(-) diff --git a/ext/B/t/optree_misc.t b/ext/B/t/optree_misc.t index 9a5c706..7a52cc3 100644 --- a/ext/B/t/optree_misc.t +++ b/ext/B/t/optree_misc.t @@ -137,7 +137,7 @@ checkOptree ( name => 'formats', # main::STDOUT (FORMAT): # c <1> leavewrite[1 ref] K/REFC,1 ->(end) # - <@> lineseq KP ->c -# 1 <;> nextstate(main 1 -:4) v ->2 +# 1 <;> nextstate(main 1 -:4) v:>,<,% ->2 # 5 <@> formline vK/2 ->6 # 2 <0> pushmark s ->3 # 3 <$> const[PV "@<<<\n"] s ->4 @@ -145,7 +145,7 @@ checkOptree ( name => 'formats', # - <0> ex-nextstate v ->4 # - <1> ex-rv2sv sK/1 ->- # 4 <#> gvsv[*a] s ->5 -# 6 <;> nextstate(main 1 -:6) v ->7 +# 6 <;> nextstate(main 1 -:6) v:>,<,% ->7 # b <@> formline sK/2 ->c # 7 <0> pushmark s ->8 # 8 <$> const[PV "@>>>\n"] s ->9 @@ -157,7 +157,7 @@ EOT_EOT # main::STDOUT (FORMAT): # c <1> leavewrite[1 ref] K/REFC,1 ->(end) # - <@> lineseq KP ->c -# 1 <;> nextstate(main 1 -:4) v ->2 +# 1 <;> nextstate(main 1 -:4) v:>,<,% ->2 # 5 <@> formline vK/2 ->6 # 2 <0> pushmark s ->3 # 3 <$> const(PV "@<<<\n") s ->4 @@ -165,7 +165,7 @@ EOT_EOT # - <0> ex-nextstate v ->4 # - <1> ex-rv2sv sK/1 ->- # 4 <$> gvsv(*a) s ->5 -# 6 <;> nextstate(main 1 -:6) v ->7 +# 6 <;> nextstate(main 1 -:6) v:>,<,% ->7 # b <@> formline sK/2 ->c # 7 <0> pushmark s ->8 # 8 <$> const(PV "@>>>\n") s ->9 -- Perl5 Master Repository
