diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-14 21:46:25 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-14 21:46:25 +0000 |
| commit | 1ab88a68edd83b94da7de16f5fea984de36b6704 (patch) | |
| tree | 525b53bd6ec4b1f70bfcda1ed7f2b57054bcb8ad /t | |
| parent | 08c7cbbb0fc466967038dcb56ca4f1b828b96269 (diff) | |
| download | perl-1ab88a68edd83b94da7de16f5fea984de36b6704.tar.gz | |
change#5729 had syntax errors
p4raw-link: @5729 on //depot/cfgperl: 36d4c99b292eeccedae13ea063319aca314246bb
p4raw-id: //depot/perl@5743
Diffstat (limited to 't')
| -rwxr-xr-x | t/lib/complex.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/lib/complex.t b/t/lib/complex.t index b095e290a7..a636ff0ab6 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)'); |