This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Don't quit before printing out the message.
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 13 Aug 1999 23:56:44 +0000 (23:56 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 13 Aug 1999 23:56:44 +0000 (23:56 +0000)
p4raw-id: //depot/cfgperl@3986

t/lib/syslfs.t
t/op/lfs.t

index 2955397..458b626 100644 (file)
@@ -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
index bfcc33a..2683a69 100644 (file)
@@ -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