libgomp/testsuite/flock

   1 #!/usr/bin/env perl
   2
   3 use strict;
   4 use warnings;
   5
   6 # Only arguments '--exclusive 1' exactly are supported.
   7 (@ARGV == 2) or die;
   8 my $mode = shift;
   9 ($mode eq "--exclusive") or die;
  10 my $fd = shift;
  11 ($fd eq "1") or die;
  12
  13 use Fcntl ':flock';
  14
  15 open(my $fh, '>&=', 1) or die "open: $!";
  16
  17 flock($fh, LOCK_EX) or die "flock: $!";