X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/aa9d8bfe2bf176fa6b86b7db4acbbaff8ee85292..0d191a4d728a2cf18bb1cde0c9cfd84ee65a97ce:/tools/sg_unit_extractor.pl

diff --git a/tools/sg_unit_extractor.pl b/tools/sg_unit_extractor.pl
index 657b6a966e..1c6285997c 100755
--- a/tools/sg_unit_extractor.pl
+++ b/tools/sg_unit_extractor.pl
@@ -1,17 +1,10 @@
 #! /usr/bin/perl
 
 use strict;
-use Fcntl ':flock';
 
 use strict;
 use Getopt::Long qw(GetOptions);
 
-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