From: Nikola Milutinovic <unknown>
Date: Mon, 23 Aug 2004 10:37:31 +0000 (+0000)
Subject: [perl #31295] PATCH: Test comp/use.t fails on Tru64
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6d2c9499abd1a5ceb61e4b79d9b3275c1cacac57;p=p5sagit%2Fp5-mst-13.2.git

[perl #31295] PATCH: Test comp/use.t fails on Tru64
From: Nikola Milutinovic (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.0.11-31295-94232.1.74127465250315@perl.org>

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

diff --git a/t/comp/use.t b/t/comp/use.t
index 7bb1cbd..db84b93 100755
--- a/t/comp/use.t
+++ b/t/comp/use.t
@@ -22,7 +22,7 @@ if ($@) {
 }
 print "ok ",$i++,"\n";
 
-eval sprintf "use %.5f;", $];
+eval sprintf "use %.6f;", $];
 if ($@) {
     print STDERR $@,"\n";
     print "not ";
@@ -30,20 +30,20 @@ if ($@) {
 print "ok ",$i++,"\n";
 
 
-eval sprintf "use %.5f;", $] - 0.000001;
+eval sprintf "use %.6f;", $] - 0.000001;
 if ($@) {
     print STDERR $@,"\n";
     print "not ";
 }
 print "ok ",$i++,"\n";
 
-eval sprintf("use %.5f;", $] + 1);
+eval sprintf("use %.6f;", $] + 1);
 unless ($@) {
     print "not ";
 }
 print "ok ",$i++,"\n";
 
-eval sprintf "use %.5f;", $] + 0.00001;
+eval sprintf "use %.6f;", $] + 0.00001;
 unless ($@) {
     print "not ";
 }