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 (executable)
--- 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);
 }