amigaos4: flock unimplemented

The semantics of locking are very different: first you lock,
then you open.  (And for semaphore-like uses of files, you
use ... semaphores.)

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: $!";
 }