[Bps-public-commit] r10398 - bpsbuilder/BPB/lib/BPB

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sat Jan 19 11:26:55 2008
New Revision: 10398

Modified:
   bpsbuilder/BPB/lib/BPB/Backend.pm

Log:
the last commit is not complete

Modified: bpsbuilder/BPB/lib/BPB/Backend.pm
==============================================================================
--- bpsbuilder/BPB/lib/BPB/Backend.pm	(original)
+++ bpsbuilder/BPB/lib/BPB/Backend.pm	Sat Jan 19 11:26:55 2008
@@ -219,7 +219,6 @@
 
     chdir File::Spec->catfile( 'dists', $dir );
 
-    my $error;
     for (@cmds) {
         my ( $type, $cmd );
         next unless /\S/;
@@ -242,16 +241,11 @@
 
         if ( system($cmd) ) {
             print $log "build $dir with failure when run $type: $!\n";
-            $error = 1;
+            die "build $dir with failure when run $type: $!\n";
         }
     }
 
-    if ($error) {
-        print $log "build $dir with failure!\n";
-    }
-    else {
-        print $log "build $dir with success!\n";
-    }
+    print $log "build $dir with success!\n";
 }
 
 sub wrap_bin {