From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 9 May 2000 16:47:27 +0000 (+0000)
Subject: The test suite tweak in #6101 wasn't quite right.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=057216a3ea0c23fa1b347bfc56335011a970d498;p=p5sagit%2Fp5-mst-13.2.git

The test suite tweak in #6101 wasn't quite right.

p4raw-id: //depot/cfgperl@6102
---

diff --git a/t/lib/complex.t b/t/lib/complex.t
index 4fc6737..b659142 100755
--- a/t/lib/complex.t
+++ b/t/lib/complex.t
@@ -262,7 +262,7 @@ EOS
     $test++;
     push @script, <<EOS;
     print "# j = \$j\n";
-    print "not " unless "\$j" =~ /^-0(?:\\.50000\\d+\\|\\.49999\\d+)+0.86602540\\d+i\$/;
+    print "not " unless "\$j" =~ /^-0(?:\\.5(?:0000\\d+)?|\\.49999\\d+)\\+0.86602540\\d+i\$/;
     print "ok $test\n";
 
     \$j->display_format('style' => 'polar', 'polar_pretty_print' => 0);