From 6d2c9499abd1a5ceb61e4b79d9b3275c1cacac57 Mon Sep 17 00:00:00 2001
From: Nikola Milutinovic <unknown>
Date: Mon, 23 Aug 2004 10:37:31 +0000
Subject: [PATCH 1/1] [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
---
 t/comp/use.t | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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 ";
 }
-- 
1.8.3.1