[Collab-qa-commits] r586 - svnbuildstat/trunk/script

[goneri-guest at alioth.debian.org]

Author: goneri-guest
Date: 2007-12-13 23:23:29 +0000 (Thu, 13 Dec 2007)
New Revision: 586

Modified:
   svnbuildstat/trunk/script/svnbuildstat_update-repository.pl
Log:
turn off the lock system for the moment

Modified: svnbuildstat/trunk/script/svnbuildstat_update-repository.pl
===================================================================
--- svnbuildstat/trunk/script/svnbuildstat_update-repository.pl	2007-12-13 23:04:37 UTC (rev 585)
+++ svnbuildstat/trunk/script/svnbuildstat_update-repository.pl	2007-12-13 23:23:29 UTC (rev 586)
@@ -161,18 +161,18 @@
 ################## MAIN ##################
 ##########################################
 ##########################################
-foreach (<lock.*>) {
-  /lock.(\d+)/;
-  my $pid = $1;
-  if (open (CMDLINE, "/proc/$pid/cmdline")) {
-    my $content = <CMDLINE>;
-    if ($content =~ /svnbuildstat_update-repository\.pl/) {
-      die "an instance is already running (pid $pid)";
-    }
-  }
-  unlink 'lock.'.$pid;
-}
-touch  "lock.$$";
+#foreach (<lock.*>) {
+#  /lock.(\d+)/;
+#  my $pid = $1;
+#  if (open (CMDLINE, "/proc/$pid/cmdline")) {
+#    my $content = <CMDLINE>;
+#    if ($content =~ /svnbuildstat_update-repository\.pl/) {
+#      die "an instance is already running (pid $pid)";
+#    }
+#  }
+#  unlink 'lock.'.$pid;
+#}
+#touch  "lock.$$";
 info ("starting");
 
 $schema = SvnBuildStat::Schema->connect(
@@ -194,4 +194,4 @@
 
 
 info ("stopping");
-unlink "lock.".$$;
+#unlink "lock.".$$;