[Bps-public-commit] r11124 - Shipwright/trunk/lib/Shipwright

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Wed Mar 19 12:10:11 2008
New Revision: 11124

Modified:
   Shipwright/trunk/lib/Shipwright/Build.pm

Log:
set default name to 'vessel' for building

Modified: Shipwright/trunk/lib/Shipwright/Build.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Build.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Build.pm	Wed Mar 19 12:10:11 2008
@@ -32,6 +32,8 @@
     $self->{build_base} =
       File::Spec->catfile( tempdir( CLEANUP => 0 ), 'build' );
 
+    $self->name( 'vessel' ) unless $self->name;
+
     unless ( $self->install_base ) {
 
         my $dir = tempdir( $self->name . '-XXXXXX', DIR => File::Spec->tmpdir );