Upgrade to Math::BigInt 1.48.

[p5sagit/p5-mst-13.2.git] / t / lib / Math / BigFloat / Subclass.pm

diff --git a/t/lib/Math/BigFloat/Subclass.pm b/t/lib/Math/BigFloat/Subclass.pm
index 7a1c279..209aa1d 100644 (file)
--- a/t/lib/Math/BigFloat/Subclass.pm
+++ b/t/lib/Math/BigFloat/Subclass.pm
@@ -24,9 +24,10 @@ sub new
         my $proto  = shift;
         my $class  = ref($proto) || $proto;
 
-        my $value       = shift || 0;   # Set to 0 if not provided
-        my $decimal     = shift;
-        my $radix       = 0;
+        my $value       = shift;
+       # Set to 0 if not provided, but don't use || (this would trigger for
+       # a passed objects to see if they are zero)
+       $value  = 0 if !defined $value;   
 
         # Store the floating point value
         my $self = bless Math::BigFloat->new($value), $class;