diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-02-19 21:17:10 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-02-19 21:17:10 +0000 |
| commit | 9b924220109ab5ca4ffe2f23c240236dc5a723c2 (patch) | |
| tree | 69c11d167bab8903a99a104bdf2a59ab8f7343b6 /lib/bigint.pm | |
| parent | b6a15bc5202dd52395ce566b43e1490d38dc2141 (diff) | |
| download | perl-9b924220109ab5ca4ffe2f23c240236dc5a723c2.tar.gz | |
Upgrade to prereleases of Math::BigInt 1.70 and
Math::BigRat 0.12, by Tels.
p4raw-id: //depot/perl@22344
Diffstat (limited to 'lib/bigint.pm')
| -rw-r--r-- | lib/bigint.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/bigint.pm b/lib/bigint.pm index 9920dad8fe..6738a03147 100644 --- a/lib/bigint.pm +++ b/lib/bigint.pm @@ -73,7 +73,7 @@ sub _constant $float =~ s/\..*//; return $float; } - my ($mis,$miv,$mfv,$es,$ev) = Math::BigInt::_split(\$float); + my ($mis,$miv,$mfv,$es,$ev) = Math::BigInt::_split($float); return $float if !defined $mis; # doesn't look like a number to me my $ec = int($$ev); my $sign = $$mis; $sign = '' if $sign eq '+'; |