perl 4.0 patch 36: (combined patch)perl-4.0.36

Since Ed Barton sent me a patch for the malignent form of "Malformed
cmd links", I finally broke down and made a patch for the various
other little things that have been accumulating on version 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;
 }