diff options
| author | Tels <nospam-abuse@bloodgate.com> | 2002-06-10 00:39:35 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-09 20:09:03 +0000 |
| commit | 07d3461404000a69f48cea93771e87db1b609f14 (patch) | |
| tree | 07a7a85782a50a3dff2a5fe366c0667617746c9f /lib/Math/BigFloat.pm | |
| parent | 92e410c29ecf54b2665e7f99d58998a8943bf818 (diff) | |
| download | perl-07d3461404000a69f48cea93771e87db1b609f14.tar.gz | |
Math::BigInt 1.58 released
Date: Sun, 09 Jun 2002 22:39:35 +0200 (CEST)
Message-Id: <200206092036.g59KaGPZ1308701@tiku.hut.fi>
Subject: [PATCH] RE: Math::BigInt 1.58 released
From: Tels <perl_dummy@bloodgate.com>
Date: Sun, 09 Jun 2002 22:45:51 +0200 (CEST)
Message-Id: <200206092042.g59KgXPZ1223212@tiku.hut.fi>
p4raw-id: //depot/perl@17145
Diffstat (limited to 'lib/Math/BigFloat.pm')
| -rw-r--r-- | lib/Math/BigFloat.pm | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/lib/Math/BigFloat.pm b/lib/Math/BigFloat.pm index ea78da5a77..c9624ba196 100644 --- a/lib/Math/BigFloat.pm +++ b/lib/Math/BigFloat.pm @@ -12,7 +12,7 @@ package Math::BigFloat; # _p: precision # _f: flags, used to signal MBI not to touch our private parts -$VERSION = '1.32'; +$VERSION = '1.33'; require 5.005; use Exporter; use File::Spec; @@ -1715,7 +1715,6 @@ sub import push @a, $_[$i]; } } -# print "mbf @a\n"; # let use Math::BigInt lib => 'GMP'; use Math::BigFloat; still work my $mbilib = eval { Math::BigInt->config()->{lib} }; @@ -1728,19 +1727,17 @@ sub import { # MBI not loaded, or with ne "Math::BigInt" $lib .= ",$mbilib" if defined $mbilib; - -# my @parts = split /::/, $MBI; # Math::BigInt => Math BigInt -# my $file = pop @parts; $file .= '.pm'; # BigInt => BigInt.pm -# $file = File::Spec->catfile (@parts, $file); - + $lib =~ s/^,//; # don't leave empty if ($] < 5.006) { # Perl < 5.6.0 dies with "out of memory!" when eval() and ':constant' is # used in the same script, or eval inside import(). my @parts = split /::/, $MBI; # Math::BigInt => Math BigInt my $file = pop @parts; $file .= '.pm'; # BigInt => BigInt.pm + require File::Spec; $file = File::Spec->catfile (@parts, $file); - eval { require $file; $MBI->import( lib => '$lib', 'objectify' ); } + eval { require "$file"; }; + $MBI->import( lib => $lib, 'objectify' ); } else { |