From 0617f8074c1f5771c2f91b6ccf52922df50c836b Mon Sep 17 00:00:00 2001
From: Tels <nospam-abuse@bloodgate.com>
Date: Sat, 16 Jun 2007 15:43:45 +0200
Subject: [PATCH] Math::BigInt take 9 (CORE::hex() vs. hex() in Calc.pm)
 Message-Id: <200706161343.47110@bloodgate.com>

p4raw-id: //depot/perl@31400
---
 lib/Math/BigInt/Calc.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lib/Math/BigInt/Calc.pm b/lib/Math/BigInt/Calc.pm
index 0dba174..98b88ea 100644
--- a/lib/Math/BigInt/Calc.pm
+++ b/lib/Math/BigInt/Calc.pm
@@ -171,19 +171,19 @@ BEGIN
   my ($x,$y,$z);
   do {
     $AND_BITS++;
-    $x = oct('0b' . '1' x $AND_BITS); $y = $x & $x;
+    $x = CORE::oct('0b' . '1' x $AND_BITS); $y = $x & $x;
     $z = (2 ** $AND_BITS) - 1;
     } while ($AND_BITS < $max && $x == $z && $y == $x);
   $AND_BITS --;						# retreat one step
   do {
     $XOR_BITS++;
-    $x = oct('0b' . '1' x $XOR_BITS); $y = $x ^ 0;
+    $x = CORE::oct('0b' . '1' x $XOR_BITS); $y = $x ^ 0;
     $z = (2 ** $XOR_BITS) - 1;
     } while ($XOR_BITS < $max && $x == $z && $y == $x);
   $XOR_BITS --;						# retreat one step
   do {
     $OR_BITS++;
-    $x = oct('0b' . '1' x $OR_BITS); $y = $x | $x;
+    $x = CORE::oct('0b' . '1' x $OR_BITS); $y = $x | $x;
     $z = (2 ** $OR_BITS) - 1;
     } while ($OR_BITS < $max && $x == $z && $y == $x);
   $OR_BITS --;						# retreat one step
@@ -2282,7 +2282,7 @@ sub _from_oct
   while ($len >= 0)
     {
     $val = substr($os,$i,$d);			# get oct digits
-    $val = oct($val);
+    $val = CORE::oct($val);
     $i -= $d; $len --;
     my $adder = [ $val ];
     _add ($c, $x, _mul ($c, $adder, $mul ) ) if $val != 0;
@@ -2314,7 +2314,7 @@ sub _from_hex
     {
     $val = substr($hs,$i,$d);			# get hex digits
     $val =~ s/^0x// if $len == 0;		# for last part only because
-    $val = hex($val);				# hex does not like wrong chars
+    $val = CORE::hex($val);			# hex does not like wrong chars
     $i -= $d; $len --;
     my $adder = [ $val ];
     # if the resulting number was to big to fit into one element, create a
-- 
2.7.4