From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 12 Aug 1999 18:46:00 +0000 (+0000)
Subject: Simply exit() early if lfs support seems unlikely.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=48ea9154b5bf72f4cb5316d6cd8a1fc9b386ffea;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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);
 	}
 }