diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-04-06 06:21:32 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-04-06 08:40:08 -0700 |
commit | 5c7d20ff772f490f6e0682ae0aa17d26f6773354 (patch) | |
tree | 8205d703b33e353dd6bbd1b41692d0c574fcd37a /pp.c | |
parent | f2bd3a8b9855e84ab43505429524667042927760 (diff) | |
download | perl-5c7d20ff772f490f6e0682ae0aa17d26f6773354.tar.gz |
[perl #87708] use integer; $tied <= $tied
This is just part of #87708.
This fixes <= under ‘use integer’ when the same tied scalar is used
for both operands and returns two different values. Before this com-
mit, get-magic would be called only once and the same value used. In
5.12.x the operands were swapped.
Diffstat (limited to 'pp.c')
-rw-r--r-- | pp.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -3005,7 +3005,7 @@ PP(pp_i_le) dVAR; dSP; tryAMAGICbin_MG(le_amg, AMGf_set); { - dPOPTOPiirl_nomg; + dPOPTOPiirl_halfmg; SETs(boolSV(left <= right)); RETURN; } |