Fix en locking

diff --git a/inst/antifraude.pl b/inst/antifraude.pl
index 47ffc42439fcf1c03c644c16d5ce9ad67a3e2285..e2d09c1cb065228b2ed342d7fd18381cdc027faf 100644 (file)
--- a/inst/antifraude.pl
+++ b/inst/antifraude.pl
@@ -155,7 +155,8 @@ if ((!$ARGV[0]) || (! -d $ARGV[0])) {
        exit 1;
 }
 
-# Lock file
+# File locking..
+if (is_lock()) { exit 1; }
 lock();
 
 # Defino some GLOBALS