amigaos4: flock unimplemented

[perl5.git] / make_ext.pl

diff --git a/make_ext.pl b/make_ext.pl
index 1b055c3..20c3bb0 100644 (file)
--- a/make_ext.pl
+++ b/make_ext.pl
@@ -742,7 +742,9 @@ 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
-    flock $fh, 2 or warn "flock $file: $!";
+    if ($^O ne "amigaos") {
+        flock $fh, 2 or warn "flock $file: $!";
+    }
     print $fh $contents or die "print $file: $!";
     close $fh or die "close $file: $!";
 }