From: Craig A. Berry Date: Fri, 31 May 2002 17:20:11 +0000 (-0500) Subject: lib/Math/BigInt/t/bigintc.t + VMS + perl@16925 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b05afeb3d8db159a55828668ece0abbdf3ee663a;p=p5sagit%2Fp5-mst-13.2.git lib/Math/BigInt/t/bigintc.t + VMS + perl@16925 From: "Craig A. Berry" Message-Id: Avoid redef warning. p4raw-id: //depot/perl@16943 --- diff --git a/lib/Math/BigInt/Calc.pm b/lib/Math/BigInt/Calc.pm index a2fe812..a114d09 100644 --- a/lib/Math/BigInt/Calc.pm +++ b/lib/Math/BigInt/Calc.pm @@ -72,6 +72,8 @@ sub _base_len #print "BASE_LEN: $BASE_LEN MAX_VAL: $MAX_VAL BASE: $BASE RBASE: $RBASE "; #print "BASE_LEN_SMALL: $BASE_LEN_SMALL MBASE: $MBASE\n"; + undef &_mul; + undef &_div; if ($caught & 1 != 0) { # must USE_MUL