From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 6 Aug 2001 12:51:38 +0000 (+0000)
Subject: The #11593 wasn't right.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c59ea072d42810e264d533230e7beb8e194a7f11;p=p5sagit%2Fp5-mst-13.2.git

The #11593 wasn't right.

p4raw-id: //depot/perl@11595
---

diff --git a/lib/Math/BigInt/t/bigintpm.t b/lib/Math/BigInt/t/bigintpm.t
index b48f223..4b28f0b 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);
 }