mirror of
https://review.haiku-os.org/buildtools
synced 2025-02-07 14:34:51 +01:00
2ff934231b
Dependencies (not updated since 13.1.0): * GMP 6.2.1 * ISL 0.24 * MPL 1.2.1 * MPFR 4.1.0 The dependencies were pulled in by running the ./contrib/download_prerequisites script.
18 lines
318 B
Perl
Executable File
18 lines
318 B
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
# Only arguments '--exclusive 1' exactly are supported.
|
|
(@ARGV == 2) or die;
|
|
my $mode = shift;
|
|
($mode eq "--exclusive") or die;
|
|
my $fd = shift;
|
|
($fd eq "1") or die;
|
|
|
|
use Fcntl ':flock';
|
|
|
|
open(my $fh, '>&=', 1) or die "open: $!";
|
|
|
|
flock($fh, LOCK_EX) or die "flock: $!";
|