This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
22b433e
)
Revert "amigaos4: flock unimplemented"
author
Jarkko Hietaniemi
<jhi@iki.fi>
Wed, 16 Sep 2015 21:05:19 +0000
(17:05 -0400)
committer
Jarkko 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
patch
|
blob
|
blame
|
history
diff --git
a/make_ext.pl
b/make_ext.pl
index
20c3bb0
..
1b055c3
100644
(file)
--- a/
make_ext.pl
+++ b/
make_ext.pl
@@
-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: $!";
}