From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 14 Mar 2000 21:46:25 +0000 (+0000)
Subject: change#5729 had syntax errors
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1ab88a68edd83b94da7de16f5fea984de36b6704;p=p5sagit%2Fp5-mst-13.2.git

change#5729 had syntax errors

p4raw-link: @5729 on //depot/cfgperl: 36d4c99b292eeccedae13ea063319aca314246bb

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

diff --git a/t/lib/complex.t b/t/lib/complex.t
index b095e29..a636ff0 100755
--- a/t/lib/complex.t
+++ b/t/lib/complex.t
@@ -264,7 +264,7 @@ EOS
     $test++;
     push @script, <<EOS;
     print "# j = \$j\n";
-    print "not " unless "\$j" =~ /^\Q-0.5+0.86602540\E\d+i$/;
+    print "not " unless "\$j" =~ /^-0\\.5\\+0.86602540\\d+i\$/;
     print "ok $test\n";
 
     \$j->display_format('style' => 'polar', 'polar_pretty_print' => 0);
@@ -273,7 +273,7 @@ EOS
     $test++;
     push @script, <<EOS;
     print "# j = \$j\n";
-    print "not " unless "\$j" =~ /^\Q[1,2.09439510\E\d+]$/;
+    print "not " unless "\$j" =~ /^\\[1,2\\.09439510\\d+\\]\$/;
     print "ok $test\n";
 
     \$j->display_format('style' => 'cartesian', 'format' => '(%.5g)');