diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-04-06 06:24:00 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-04-06 08:40:08 -0700 |
| commit | fd2dbd2b83d1a66966856f304534143330e0ef17 (patch) | |
| tree | 0ec59efa6cb817e8df88e8670d6fac58b6da63a7 /t/op/tie_fetch_count.t | |
| parent | 5c7d20ff772f490f6e0682ae0aa17d26f6773354 (diff) | |
| download | perl-fd2dbd2b83d1a66966856f304534143330e0ef17.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 commit,
get-magic would be called only once and the same value used. In 5.12.x
the operands were swapped.
Diffstat (limited to 't/op/tie_fetch_count.t')
| -rw-r--r-- | t/op/tie_fetch_count.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/tie_fetch_count.t b/t/op/tie_fetch_count.t index e0a1208f56..cecfd7f05c 100644 --- a/t/op/tie_fetch_count.t +++ b/t/op/tie_fetch_count.t @@ -246,8 +246,8 @@ bin_test '.' , 1, 2, 12; { local $TODO; check_count '- under use integer', 2; } } bin_int_test '<' , 1, 2, 1; - bin_int_test '>' , 44, 2, 1; } +bin_int_test '>' , 44, 2, 1; bin_int_test '<=', 44, 2, ""; bin_int_test '>=', 1, 2, ""; bin_int_test '==', 1, 2, ""; |