This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Revert "amigaos4: flock unimplemented"
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 16 Sep 2015 21:05:19 +0000 (17:05 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 16 Sep 2015 21:07:43 +0000 (17:07 -0400)
This reverts commit 24631c4f6929bc824e657b74b2edfada4c8d05b0.

The new flock emulation for amigaos now tested with parallel builds
and found to fare well.

make_ext.pl

index 20c3bb0..1b055c3 100644 (file)
@@ -742,9 +742,7 @@ sub fallback_cleanup {
     open my $fh, '>>', $file or die "open $file: $!";
     # Quite possible that we're being run in parallel here.
     # Can't use Fcntl this early to get the LOCK_EX
-    if ($^O ne "amigaos") {
-        flock $fh, 2 or warn "flock $file: $!";
-    }
+    flock $fh, 2 or warn "flock $file: $!";
     print $fh $contents or die "print $file: $!";
     close $fh or die "close $file: $!";
 }