diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-04-05 21:39:01 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-04-05 22:21:01 -0700 |
| commit | c31c2913381bad74c5f1f5c67c4d9c6e037550ad (patch) | |
| tree | 37b444f97af6a3be1c7a487e627cd7541a85aa25 /t | |
| parent | 801eb0831ada14406f0f0900110602ffb6aa5476 (diff) | |
| download | perl-c31c2913381bad74c5f1f5c67c4d9c6e037550ad.tar.gz | |
[perl #87708] atan2 $tied, $tied
This fixes atan2 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
would be reversed.
Diffstat (limited to 't')
| -rw-r--r-- | t/op/tie_fetch_count.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/t/op/tie_fetch_count.t b/t/op/tie_fetch_count.t index 9ab77d911f..a0e74913cc 100644 --- a/t/op/tie_fetch_count.t +++ b/t/op/tie_fetch_count.t @@ -252,9 +252,9 @@ bin_test '.' , 1, 2, 12; bin_int_test '==', 1, 2, ""; bin_int_test '!=', 1, 2, 1; bin_int_test '<=>', 1, 2, -1; - tie $var, "main", 1, 4; - cmp_ok(atan2($var, $var), '<', .3, 'retval of atan2 $var, $var'); - check_count 'atan2', 2; } +tie $var, "main", 1, 4; +cmp_ok(atan2($var, $var), '<', .3, 'retval of atan2 $var, $var'); +check_count 'atan2', 2; __DATA__ |