diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-07-04 20:58:05 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-07-04 20:58:05 +0000 |
| commit | 990fb837ac6356023668c709e35770d2e63ec006 (patch) | |
| tree | 84790f8204d4d64e5b9ae4b72620d6c22f8e5199 /t/lib/Math/BigInt/Subclass.pm | |
| parent | 2a30c5e0c7700acf7c1205bda81f1853b9257109 (diff) | |
| download | perl-990fb837ac6356023668c709e35770d2e63ec006.tar.gz | |
Upgrade to Math::BigInt v1.65, Math::BigRat v0.10,
and bignum v0.14.
p4raw-id: //depot/perl@20000
Diffstat (limited to 't/lib/Math/BigInt/Subclass.pm')
| -rw-r--r-- | t/lib/Math/BigInt/Subclass.pm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/t/lib/Math/BigInt/Subclass.pm b/t/lib/Math/BigInt/Subclass.pm index 688ad23769..0cbd15923f 100644 --- a/t/lib/Math/BigInt/Subclass.pm +++ b/t/lib/Math/BigInt/Subclass.pm @@ -6,14 +6,16 @@ require 5.005_02; use strict; use Exporter; -use Math::BigInt(1.56); +use Math::BigInt (1.64); +# $lib is for the "lib => " test use vars qw($VERSION @ISA $PACKAGE @EXPORT_OK + $lib $accuracy $precision $round_mode $div_scale); @ISA = qw(Exporter Math::BigInt); @EXPORT_OK = qw(bgcd objectify); -$VERSION = 0.03; +$VERSION = 0.04; use overload; # inherit overload from BigInt @@ -21,6 +23,7 @@ use overload; # inherit overload from BigInt $accuracy = $precision = undef; $round_mode = 'even'; $div_scale = 40; +$lib = ''; sub new { @@ -67,7 +70,8 @@ sub import my @a; my $t = 0; foreach (@_) { - $t = 0, next if $t == 1; + # remove the "lib => foo" parameters and store it + $lib = $_, $t = 0, next if $t == 1; if ($_ eq 'lib') { $t = 1; next; |