From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 6 Mar 2001 15:36:14 +0000 (+0000)
Subject: 0.999... does equal 1.0, doesn't it?
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6d958cacfa2c47a9b3e4d7a29ec6bd3ffa8ff2f9;p=p5sagit%2Fp5-mst-13.2.git

0.999... does equal 1.0, doesn't it?

p4raw-id: //depot/perl@9059
---

diff --git a/t/camel-III/vstring.t b/t/camel-III/vstring.t
index 7d05790..a252a3b 100644
--- a/t/camel-III/vstring.t
+++ b/t/camel-III/vstring.t
@@ -35,4 +35,5 @@ else
 ok(v5.6.0 lt v5.7.0,1,"v5.6.0 lt v5.7.0 fails");
 # Some floating-point risk here ...
 my $v = ord($^V)+ord(substr($^V,1,1))/1000+ord(substr($^V,2,1))/1000000;
+$v =~ s/^5\.006999\d+/5.007/; # floating point fun
 ok($v,$],"\$^V and \$] do not match");