[Mud-builder-commits] r178 - trunk

[keesj at garage.maemo.org]

Author: keesj
Date: 2007-05-01 07:57:46 +0300 (Tue, 01 May 2007)
New Revision: 178

Modified:
   trunk/mud
Log:
bug [#640] patch part 2

Modified: trunk/mud
===================================================================
--- trunk/mud	2007-04-28 10:07:26 UTC (rev 177)
+++ trunk/mud	2007-05-01 04:57:46 UTC (rev 178)
@@ -65,12 +65,22 @@
     closedir(DIR);
 }
 
+# Keep track of which packages are built in this specific command
+%::built = ();
+
 foreach my $n (@pkgs) {
     $n = basename($n, ".xml") if -f $n;
     eval("print \&$action(\$n)");
     croak "Failed to run $action on $n: $@\n" if $@;
 }
 
+if ($action eq "build") {
+# Clean packages which were built
+    foreach my $n (@pkgs) {
+	clean($n);
+    }
+}
+
     
 exit;
 
@@ -158,7 +168,7 @@
     my $builder = new MUD::Build( package => $pkg, config => $config);
     $builder->build();
     $builder->copy();
-    $builder->clean();
+#    $builder->clean();
 }
 
 sub show {