# consume less blocks than one megabyte (assuming nobody has
# one megabyte blocks...)
-my $O_LARGEFILE;
-eval { $O_LARGEFILE = O_LARGEFILE };
-$O_LARGEFILE = 0 unless defined $O_LARGEFILE;
-
-sysopen(BIG, "big", O_WRONLY|O_CREAT|O_TRUNC|$O_LARGEFILE) or
+sysopen(BIG, "big", O_WRONLY|O_CREAT|O_TRUNC) or
do { warn "sysopen failed: $!\n"; bye };
sysseek(BIG, 1_000_000, SEEK_SET);
syswrite(BIG, "big");
my $fail = 0;
-sysopen(BIG, "big", O_WRONLY|O_CREAT|O_TRUNC|$O_LARGEFILE) or
+sysopen(BIG, "big", O_WRONLY|O_CREAT|O_TRUNC) or
do { warn "sysopen failed: $!\n"; bye };
sysseek(BIG, 5_000_000_000, SEEK_SET);
syswrite(BIG, "big");