diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-07 01:30:25 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-07 01:30:25 +0000 |
| commit | 394e6ffb59de984c27a7dce4842d9c594c141888 (patch) | |
| tree | 6429d67f7140ea0b59418ef189462043edc76d24 /t/lib/Math/BigFloat/Subclass.pm | |
| parent | 4f8e594433baee93e2bc267827128e45c0c466c0 (diff) | |
| download | perl-394e6ffb59de984c27a7dce4842d9c594c141888.tar.gz | |
Upgrade to Math::BigInt 1.48.
p4raw-id: //depot/perl@13505
Diffstat (limited to 't/lib/Math/BigFloat/Subclass.pm')
| -rw-r--r-- | t/lib/Math/BigFloat/Subclass.pm | 7 |
1 files changed, 4 insertions, 3 deletions
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; |