This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
change#5729 had syntax errors
authorGurusamy Sarathy <gsar@cpan.org>
Tue, 14 Mar 2000 21:46:25 +0000 (21:46 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Tue, 14 Mar 2000 21:46:25 +0000 (21:46 +0000)
p4raw-link: @5729 on //depot/cfgperl: 36d4c99b292eeccedae13ea063319aca314246bb

p4raw-id: //depot/perl@5743

t/lib/complex.t

index b095e29..a636ff0 100755 (executable)
@@ -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)');