This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Simply exit() early if lfs support seems unlikely.
authorJarkko Hietaniemi <jhi@iki.fi>
Thu, 12 Aug 1999 18:46:00 +0000 (18:46 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 12 Aug 1999 18:46:00 +0000 (18:46 +0000)
p4raw-id: //depot/cfgperl@3968

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

index 721a68f..206a2ef 100644 (file)
@@ -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;
 }
index 5d4b3a1..9d9b8ae 100644 (file)
@@ -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);
        }
 }