[Bps-public-commit] r10443 - bpsbuilder/Shipwright/lib/Shipwright

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Wed Jan 23 07:42:53 2008
New Revision: 10443

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

Log:
added force arg for build script

Modified: bpsbuilder/Shipwright/lib/Shipwright/Backend.pm
==============================================================================
--- bpsbuilder/Shipwright/lib/Shipwright/Backend.pm	(original)
+++ bpsbuilder/Shipwright/lib/Shipwright/Backend.pm	Wed Jan 23 07:42:53 2008
@@ -146,7 +146,7 @@
 
 my %args;
 GetOptions( \%args, 'install-base=s', 'perl=s', 'skip=s', 'skip-test',
-    'only-test' );
+    'only-test', 'force' );
 
 unlink 'build.log' if -e 'build.log';
 open my $log, '>', 'build.log' or die $!;
@@ -253,7 +253,14 @@
         print "we'll run the cmd: $cmd\n";
         if ( system($cmd) ) {
             print $log "build $dir with failure when run $type: $!\n";
-            die "build $dir with failure when run $type: $!\n";
+            if ( $args{force} && $type eq 'test' ) {
+                print $log
+"although tests failed, will install anyway since we have force arg\n";
+            }
+            else {
+                die "build $dir with failure when run $type: $!\n";
+            }
+
         }
     }