This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Retract change #3977 (do_open9() adds O_LARGEFILE automagically).
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 13 Aug 1999 15:11:51 +0000 (15:11 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 13 Aug 1999 15:11:51 +0000 (15:11 +0000)
p4raw-link: @3977 on //depot/cfgperl: a015af24b2d0b1531a3fb6be319dee296ef92ba5

p4raw-id: //depot/cfgperl@3981

t/lib/syslfs.t

index 076d06f..2955397 100644 (file)
@@ -39,11 +39,7 @@ if ($^O eq 'win32' || $^O eq 'vms') {
 # 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");
@@ -72,7 +68,7 @@ print "1..8\n";
 
 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");