This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Don't bother with lfs testing if off_t is too small.
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 11 Aug 1999 22:48:25 +0000 (22:48 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 11 Aug 1999 22:48:25 +0000 (22:48 +0000)
p4raw-id: //depot/cfgperl@3962

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

index 807ff11..8f89bdb 100644 (file)
@@ -11,6 +11,12 @@ BEGIN {
        }
        chdir 't' if -d 't';
        unshift @INC, '../lib';
+       require Config; import Config;
+       # Don't bother if there are no quad offsets.
+       if ($Config{lseeksize} < 8) {
+               print "1..0\n# no 64-bit offsets\n";
+               bye();
+       }
        require Fcntl; import Fcntl;
 }
 
index 2704ecf..345fa26 100644 (file)
@@ -11,6 +11,12 @@ BEGIN {
        }
        chdir 't' if -d 't';
        unshift @INC, '../lib';
+       # Don't bother if there are no quad offsets.
+       require Config; import Config;
+       if ($Config{lseeksize} < 8) {
+               print "1..0\n# no 64-bit offsets\n";
+               bye();
+       }
 }
 
 sub bye {