diff options
Diffstat (limited to 'gnu/usr.bin/perl/cpan/Math-BigInt-FastCalc/t/leak.t')
| -rwxr-xr-x | gnu/usr.bin/perl/cpan/Math-BigInt-FastCalc/t/leak.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gnu/usr.bin/perl/cpan/Math-BigInt-FastCalc/t/leak.t b/gnu/usr.bin/perl/cpan/Math-BigInt-FastCalc/t/leak.t index 5db38e1dbd9..6d0f7464a57 100755 --- a/gnu/usr.bin/perl/cpan/Math-BigInt-FastCalc/t/leak.t +++ b/gnu/usr.bin/perl/cpan/Math-BigInt-FastCalc/t/leak.t @@ -12,7 +12,9 @@ use Math::BigInt::FastCalc; ############################################################################# package Math::BigInt::FastCalc::LeakCheck; -use parent qw(Math::BigInt::FastCalc); + +use Math::BigInt::FastCalc; +our @ISA = qw< Math::BigInt::FastCalc >; my $destroyed = 0; sub DESTROY { $destroyed++; } @@ -76,4 +78,3 @@ sub _test_acmp my $n_2 = Math::BigInt::FastCalc->_str($n2); is ($destroyed, 1, "_acmp($n_1,$n_2) does not leak memory"); } - |