diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-05-09 16:47:27 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-05-09 16:47:27 +0000 |
| commit | 057216a3ea0c23fa1b347bfc56335011a970d498 (patch) | |
| tree | fd0db7f2aec4dc658225eb2574da57346f2b89cd /t/lib | |
| parent | f3ff050fccffadeeccf49f587e2b99d7f1c70fd6 (diff) | |
| download | perl-057216a3ea0c23fa1b347bfc56335011a970d498.tar.gz | |
The test suite tweak in #6101 wasn't quite right.
p4raw-id: //depot/cfgperl@6102
Diffstat (limited to 't/lib')
| -rwxr-xr-x | t/lib/complex.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/lib/complex.t b/t/lib/complex.t index 4fc67371be..b659142af9 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); |