From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 13 Aug 1999 23:56:44 +0000 (+0000)
Subject: Don't quit before printing out the message.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e9a694fc69831683df9b559726b85119e227aa26;p=p5sagit%2Fp5-mst-13.2.git

Don't quit before printing out the message.

p4raw-id: //depot/cfgperl@3986
---

diff --git a/t/lib/syslfs.t b/t/lib/syslfs.t
index 2955397..458b626 100644
--- a/t/lib/syslfs.t
+++ b/t/lib/syslfs.t
@@ -119,12 +119,10 @@ print "ok 7\n";
 fail unless $big eq "big";
 print "ok 8\n";
 
-bye();
-
 if ($fail) {
     print STDERR <<EOM;
 #
-# If the lfs (large file support) tests fail, it means that
+# If the lfs (large file support) tests fail, it may mean that
 # the *file system* you are running the tests on doesn't support
 # large files (files larger than two gigabytes).  Perl may still
 # be able to support such files, once you have such a file system.
@@ -132,4 +130,6 @@ if ($fail) {
 EOM
 }
 
+bye();
+
 # eof
diff --git a/t/op/lfs.t b/t/op/lfs.t
index bfcc33a..2683a69 100644
--- a/t/op/lfs.t
+++ b/t/op/lfs.t
@@ -123,12 +123,10 @@ print "ok 7\n";
 fail unless $big eq "big";
 print "ok 8\n";
 
-bye();
-
 if ($fail) {
     print STDERR <<EOM;
 #
-# If the lfs (large file support) tests fail, it means that
+# If the lfs (large file support) tests fail, it may mean that
 # the *file system* you are running the tests on doesn't support
 # large files (files larger than two gigabytes).  Perl may still
 # be able to support such files, once you have such a file system.
@@ -136,4 +134,6 @@ if ($fail) {
 EOM
 }
 
+bye();
+
 # eof