This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #31295] PATCH: Test comp/use.t fails on Tru64
authorNikola Milutinovic <unknown>
Mon, 23 Aug 2004 10:37:31 +0000 (10:37 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 23 Aug 2004 12:32:33 +0000 (12:32 +0000)
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

index 7bb1cbd..db84b93 100755 (executable)
@@ -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 ";
 }