From 9b924220109ab5ca4ffe2f23c240236dc5a723c2 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 19 Feb 2004 21:17:10 +0000
Subject: Upgrade to prereleases of Math::BigInt 1.70 and Math::BigRat 0.12, by
 Tels.

p4raw-id: //depot/perl@22344
---
 lib/bigint.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/bigint.pm')

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 '+';
-- 
cgit v1.2.1