diff options
author | Nicholas Clark <nick@ccl4.org> | 2012-08-14 12:22:45 +0200 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2012-08-15 17:42:40 +0200 |
commit | 1473b834ebd652a4760a26fad191500e74ac05e5 (patch) | |
tree | de140cf910bd5a21f85562dff23c42ec6f42d169 /ext | |
parent | ed2b02642a84b0315c0e7a3d37c7f73fc1066e9b (diff) | |
download | perl-1473b834ebd652a4760a26fad191500e74ac05e5.tar.gz |
Tweak the test from 35f7559499c4a614 to work with PERL_UNICODE set.
Diffstat (limited to 'ext')
-rw-r--r-- | 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 9a5c706149..7a52cc3844 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 |