Upgrade to File::Spec 0.810_01 from CPAN by Barrie Slaymaker.

[p5sagit/p5-mst-13.2.git] / t / lib / complex.t

diff --git a/t/lib/complex.t b/t/lib/complex.t
index 4fc6737..b659142 100755 (executable)
--- 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);