Change 31400 by [EMAIL PROTECTED] on 2007/06/17 08:46:13
Subject: Math::BigInt take 9 (CORE::hex() vs. hex() in Calc.pm)
From: Tels <[EMAIL PROTECTED]>
Date: Sat, 16 Jun 2007 13:43:45 +0200
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/lib/Math/BigInt/Calc.pm#51 edit
Differences ...
==== //depot/perl/lib/Math/BigInt/Calc.pm#51 (text) ====
Index: perl/lib/Math/BigInt/Calc.pm
--- perl/lib/Math/BigInt/Calc.pm#50~31285~ 2007-05-28 03:17:22.000000000
-0700
+++ perl/lib/Math/BigInt/Calc.pm 2007-06-17 01:46:13.000000000 -0700
@@ -171,19 +171,19 @@
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 @@
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 @@
{
$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
End of Patch.
