diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-12 18:46:00 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-12 18:46:00 +0000 |
| commit | 48ea9154b5bf72f4cb5316d6cd8a1fc9b386ffea (patch) | |
| tree | 241d37144eedb5d041a4b6719e82034e63984602 /t | |
| parent | 389b72ffba57effeed96b76240b691bbd83408f7 (diff) | |
| download | perl-48ea9154b5bf72f4cb5316d6cd8a1fc9b386ffea.tar.gz | |
Simply exit() early if lfs support seems unlikely.
p4raw-id: //depot/cfgperl@3968
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/syslfs.t | 4 | ||||
| -rw-r--r-- | t/op/lfs.t | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/t/lib/syslfs.t b/t/lib/syslfs.t index 721a68f59a..206a2ef081 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 5d4b3a128d..9d9b8ae9b8 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); } } |