diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-06-10 09:49:32 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-06-10 09:49:32 +0000 |
| commit | 3f125e84d24d568b354883238496eb3c33c84e9d (patch) | |
| tree | 711431db795066f65dae4346a7c0e231ff407492 /t | |
| parent | 5c41ae46648bb5a8b81aa170365192ce5de4aa48 (diff) | |
| parent | 9c20e9bc2196ed149d3bedb9d3f98c0431f1b990 (diff) | |
| download | perl-3f125e84d24d568b354883238496eb3c33c84e9d.tar.gz | |
Integrate mainline
p4raw-id: //depot/perlio@17158
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/Math/BigInt/BareCalc.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/lib/Math/BigInt/BareCalc.pm b/t/lib/Math/BigInt/BareCalc.pm index 7c56c4eb70..797957f748 100644 --- a/t/lib/Math/BigInt/BareCalc.pm +++ b/t/lib/Math/BigInt/BareCalc.pm @@ -14,10 +14,11 @@ $VERSION = '0.02'; # uses Calc, but only features the strictly necc. methods. -use Math::BigInt::Calc '0.18'; +use Math::BigInt::Calc '0.29'; BEGIN { + no strict 'refs'; foreach (qw/ base_len new zero one two copy str num add sub mul div inc dec acmp len digit zeros is_zero is_one is_odd is_even is_one check @@ -25,7 +26,6 @@ BEGIN /) { my $name = "Math::BigInt::Calc::_$_"; - no strict 'refs'; *{"Math::BigInt::BareCalc::_$_"} = \&$name; } } |