diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2013-07-25 21:56:18 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-07-25 23:48:03 -0700 |
| commit | f5b4a4128bbf937774d10d32dbddaae7fb2274fc (patch) | |
| tree | 8d0a7a9f9264bf54846dd686ab8a0896f5dbf1b6 /ext/B | |
| parent | fb090176122b418ad8de1609f4202795ddc55d52 (diff) | |
| download | perl-f5b4a4128bbf937774d10d32dbddaae7fb2274fc.tar.gz | |
Version number tweaks in tests and other cleanup
I didn’t have this constant stuff ready as soon as I expected. I also
left a comment and a couple of ‘local $TODO’s lying around that don’t
need to be there. As a bonus, correct a typo in constant.pm’s docu-
mentation.
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/t/optree_constants.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/B/t/optree_constants.t b/ext/B/t/optree_constants.t index 71946ac08e..23ce6a3d00 100644 --- a/ext/B/t/optree_constants.t +++ b/ext/B/t/optree_constants.t @@ -177,7 +177,7 @@ EONT_EONT my ($expect, $expect_nt) = - $] >= 5.019002 + $] >= 5.019003 ? (" is a constant sub, optimized to a AV\n") x 2 : (<<'EOT_EOT', <<'EONT_EONT'); # 3 <1> leavesub[2 refs] K/REFC,1 ->(end) @@ -351,8 +351,8 @@ checkOptree ( name => 'lc*,uc*,gt,lt,ge,le,cmp', # n <$> const[PV "b-cmp-a"] s ->o # p <;> nextstate(main 916 optree_constants.t:313) v:>,<,%,{ ->q # q <$> const[PVNV 0] s/SHORT ->r < 5.017002 -# q <$> const[PVNV 0] s/FOLD,SHORT ->r >=5.017002 < 5.019001 -# q <$> const[SPECIAL sv_no] s/FOLD,SHORT ->r >=5.019001 +# q <$> const[PVNV 0] s/FOLD,SHORT ->r >=5.017002 < 5.019003 +# q <$> const[SPECIAL sv_no] s/FOLD,SHORT ->r >=5.019003 EOT_EOT # r <1> leavesub[1 ref] K/REFC,1 ->(end) # - <@> lineseq KP ->r |