diff options
Diffstat (limited to 'lib/bigint.pl')
| -rw-r--r-- | lib/bigint.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/bigint.pl b/lib/bigint.pl index 9a52fb76fd..5c79da9898 100644 --- a/lib/bigint.pl +++ b/lib/bigint.pl @@ -154,7 +154,7 @@ sub add { #(int_num_array, int_num_array) return int_num_array $car = 0; for $x (@x) { last unless @y || $car; - $x -= 1e5 if $car = (($x += shift @y + $car) >= 1e5); + $x -= 1e5 if $car = (($x += shift(@y) + $car) >= 1e5); } for $y (@y) { last unless $car; @@ -169,7 +169,7 @@ sub sub { #(int_num_array, int_num_array) return int_num_array $bar = 0; for $sx (@sx) { last unless @y || $bar; - $sx += 1e5 if $bar = (($sx -= shift @sy + $bar) < 0); + $sx += 1e5 if $bar = (($sx -= shift(@sy) + $bar) < 0); } @sx; } |