Simply exit() early if lfs support seems unlikely.

p4raw-id: //depot/cfgperl@3968

diff --git a/t/lib/syslfs.t b/t/lib/syslfs.t
index 721a68f..206a2ef 100644 (file)
--- a/t/lib/syslfs.t
+++ b/t/lib/syslfs.t
@@ -7,7 +7,7 @@ BEGIN {
        eval { my $q = pack "q", 0 };
        if ($@) {
                print "1..0\n# no 64-bit types\n";
-               bye();
+               exit(0);
        }
        chdir 't' if -d 't';
        unshift @INC, '../lib';
@@ -15,7 +15,7 @@ BEGIN {
        # Don't bother if there are no quad offsets.
        if ($Config{lseeksize} < 8) {
                print "1..0\n# no 64-bit file offsets\n";
-               bye();
+               exit(0);
        }
        require Fcntl; import Fcntl;
 }

diff --git a/t/op/lfs.t b/t/op/lfs.t
index 5d4b3a1..9d9b8ae 100644 (file)
--- a/t/op/lfs.t
+++ b/t/op/lfs.t
@@ -7,7 +7,7 @@ BEGIN {
        eval { my $q = pack "q", 0 };
        if ($@) {
                print "1..0\n# no 64-bit types\n";
-               bye();
+               exit(0);
        }
        chdir 't' if -d 't';
        unshift @INC, '../lib';
@@ -15,7 +15,7 @@ BEGIN {
        require Config; import Config;
        if ($Config{lseeksize} < 8) {
                print "1..0\n# no 64-bit file offsets\n";
-               bye();
+               exit(0);
        }
 }