summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2000-03-02 15:32:04 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2000-03-02 15:32:04 +0000
commit400e3f8e5f6208355b1b7b8eff6eed4e7f1231eb (patch)
tree75113ca2e704fc57396b5b1faa997fcc592bbeb1
parent57cc7310cf1d76e26fa951f4eec1ddb84b344b9f (diff)
downloadperl-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-xt/op/pack.t3
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");