From 394e6ffb59de984c27a7dce4842d9c594c141888 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Fri, 7 Dec 2001 01:30:25 +0000 Subject: Upgrade to Math::BigInt 1.48. p4raw-id: //depot/perl@13505 --- t/lib/Math/BigFloat/Subclass.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 't/lib/Math/BigFloat/Subclass.pm') diff --git a/t/lib/Math/BigFloat/Subclass.pm b/t/lib/Math/BigFloat/Subclass.pm index 7a1c2790cc..209aa1df9d 100644 --- 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; -- cgit v1.2.1