diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-04-06 12:40:44 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-04-06 12:40:44 -0700 |
| commit | e62ca0f9ce708db51e000573ffdc696e61eabdf7 (patch) | |
| tree | 3acfdc467d09212e728a5d0f261df342f6a80f2f /t/lib/warnings | |
| parent | 9b029393566c62b805459ea132fb68e5e941a3bd (diff) | |
| download | perl-e62ca0f9ce708db51e000573ffdc696e61eabdf7.tar.gz | |
[perl #87708] $tied + $tied and $tied - $tied under ‘use integer’
This is just part of #87708.
This fixes + and - under ‘use integer’ when the same tied scalar is
used for both operands and returns two different values. Before this
commit, get-magic would be called only once and the same value used.
In 5.12.x + just worked but the operands were swapped for -.
Diffstat (limited to 't/lib/warnings')
| -rw-r--r-- | t/lib/warnings/9uninit | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/lib/warnings/9uninit b/t/lib/warnings/9uninit index 7dfeb7baff..d634846feb 100644 --- a/t/lib/warnings/9uninit +++ b/t/lib/warnings/9uninit @@ -556,10 +556,10 @@ $v = $m1 != $g1; $v = $m1 <=> $g1; $v = -$m1; EXPECT -Use of uninitialized value $g1 in integer addition (+) at - line 6. Use of uninitialized value $m1 in integer addition (+) at - line 6. -Use of uninitialized value $g1 in integer subtraction (-) at - line 7. +Use of uninitialized value $g1 in integer addition (+) at - line 6. Use of uninitialized value $m1 in integer subtraction (-) at - line 7. +Use of uninitialized value $g1 in integer subtraction (-) at - line 7. Use of uninitialized value $g1 in integer multiplication (*) at - line 8. Use of uninitialized value $m1 in integer multiplication (*) at - line 8. Use of uninitialized value $g1 in integer division (/) at - line 9. |