summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
b889282)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@6013
48e7efb5-ca39-0410-a469-
dd3cf9ba447f
#! /usr/bin/perl
use strict;
#! /usr/bin/perl
use strict;
+use Fcntl ':flock';
+
+open SELF, "< $0" or die "Cannot open the lock file";
+if (!flock SELF, LOCK_EX | LOCK_NB) {
+ print STDERR "sg_unit_extractor already running. Cancelling...\n";
+ exit;
+}
my $progname="sg_unit_extractor";
# Get the args
my $progname="sg_unit_extractor";
# Get the args