[Collab-qa-commits] r840 - qabuildstat/buildagent

[goneri at alioth.debian.org]

Author: goneri
Date: 2008-04-28 20:26:55 +0000 (Mon, 28 Apr 2008)
New Revision: 840

Modified:
   qabuildstat/buildagent/qabuildstat-buildagent
Log:
really purge the buildarea and tmpdir

Modified: qabuildstat/buildagent/qabuildstat-buildagent
===================================================================
--- qabuildstat/buildagent/qabuildstat-buildagent	2008-04-28 20:18:29 UTC (rev 839)
+++ qabuildstat/buildagent/qabuildstat-buildagent	2008-04-28 20:26:55 UTC (rev 840)
@@ -84,11 +84,9 @@
   die "please create: `".$vardir unless -d $vardir;
 # TODO check for running script in background
 # Purge
-  foreach ($workplace, $buildarea, $tmpdir) {
-    if (-d $workplace) {
-      `rm -r $workplace`;
-    }
-  }
+  `rm -r $workplace`;
+  `rm -r $buildarea`;
+  `rm -r $tmpdir`;
 
   foreach (`mount`) {
     if (/^\/\S+\son\s(\S+)/) {