diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-06 12:51:38 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-06 12:51:38 +0000 |
| commit | c59ea072d42810e264d533230e7beb8e194a7f11 (patch) | |
| tree | d5fc24650d4563e58b20cf991a844309bde12fb9 | |
| parent | cdf8b154184019da333b6320795257b487053e0a (diff) | |
| download | perl-c59ea072d42810e264d533230e7beb8e194a7f11.tar.gz | |
The #11593 wasn't right.
p4raw-id: //depot/perl@11595
| -rwxr-xr-x | lib/Math/BigInt/t/bigintpm.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Math/BigInt/t/bigintpm.t b/lib/Math/BigInt/t/bigintpm.t index b48f2231d1..4b28f0b9b3 100755 --- a/lib/Math/BigInt/t/bigintpm.t +++ b/lib/Math/BigInt/t/bigintpm.t @@ -534,8 +534,8 @@ $x = Math::BigInt->new('+inf'); ok_inf ($x,$y); sub ok_inf { my ($x, $y) = @_; - $x =~ s/^inf(?:inity)?/$1/i; - $y =~ s/^inf(?:inity)?/$1/i; + $x =~ s/^inf(?:inity)?/Inf/i; + $y =~ s/^inf(?:inity)?/Inf/i; ok($x, $y); } |