lib/Math/BigInt/t/bigintc.t + VMS + perl@16925

From: "Craig A. Berry" <craigberry@mac.com>
Message-Id: <a05111b01b91da6015790@[172.16.52.1]>

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 (file)
--- 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