[Bps-public-commit] r12965 - in Shipwright/trunk: . lib/Shipwright/Script

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Fri Jun  6 10:12:04 2008
New Revision: 12965

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/lib/Shipwright/Build.pm
   Shipwright/trunk/lib/Shipwright/Script/Build.pm

Log:
 r13057 at sunnavys-mb:  sunnavy | 2008-06-06 22:06:59 +0800
 added build-base arg for build cmd


Modified: Shipwright/trunk/lib/Shipwright/Build.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Build.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Build.pm	Fri Jun  6 10:12:04 2008
@@ -29,7 +29,7 @@
 
     $self->log( Log::Log4perl->get_logger( ref $self ) );
 
-    $self->{build_base} =
+    $self->{build_base} ||=
       File::Spec->catfile( tempdir( CLEANUP => 0 ), 'build' );
 
     $self->name('vessel') unless $self->name;
@@ -132,7 +132,6 @@
                 $self->perl($^X);
             }
         }
-        die -e $self->perl;
 
         for my $dist ( @{ $self->order } ) {
 

Modified: Shipwright/trunk/lib/Shipwright/Script/Build.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/Build.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/Build.pm	Fri Jun  6 10:12:04 2008
@@ -19,6 +19,7 @@
         'l|log-level=s'  => 'log_level',
         'log-file=s'     => 'log_file',
         'install-base=s' => 'install_base',
+        'build-base=s'   => 'build_base',
         'name=s'         => 'name',
         'skip=s'         => 'skip',
         'only=s'         => 'only',
@@ -67,7 +68,7 @@
     my $shipwright = Shipwright->new(
         map { $_ => $self->$_ }
           qw/repository log_level log_file skip skip_test
-          flags name force only_test install_base perl only/
+          flags name force only_test install_base build_base perl only/
     );
 
     $shipwright->backend->export( target => $shipwright->build->build_base );