diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-03-02 15:32:04 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-03-02 15:32:04 +0000 |
commit | 400e3f8e5f6208355b1b7b8eff6eed4e7f1231eb (patch) | |
tree | 75113ca2e704fc57396b5b1faa997fcc592bbeb1 | |
parent | 57cc7310cf1d76e26fa951f4eec1ddb84b344b9f (diff) | |
download | perl-400e3f8e5f6208355b1b7b8eff6eed4e7f1231eb.tar.gz |
Remove the pack.t kludge introduced to fudge the test
to pass under long doubles: leave the similar kludge
to posix.t because POSIX::strtod() is still double,
not long double.
p4raw-id: //depot/cfgperl@5439
-rwxr-xr-x | t/op/pack.t | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/t/op/pack.t b/t/op/pack.t index 867da8dd14..e4c7a9c210 100755 --- a/t/op/pack.t +++ b/t/op/pack.t @@ -19,9 +19,6 @@ print ($#ary == $#ary2 ? "ok 1\n" : "not ok 1\n"); $out1=join(':',@ary); $out2=join(':',@ary2); -# Using long double NVs may introduce greater accuracy than wanted. -$out2 =~ s/:9\.87654321097999\d*:/:9.87654321098:/ - if $Config{uselongdouble} eq 'define'; print ($out1 eq $out2? "ok 2\n" : "not ok 2\n"); print ($foo =~ /def/ ? "ok 3\n" : "not ok 3\n"); |