[Bps-public-commit] r13349 - in Shipwright/trunk: . share/bin

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue Jun 17 08:07:15 2008
New Revision: 13349

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/lib/Shipwright/Build.pm
   Shipwright/trunk/share/bin/shipwright-builder

Log:
 r13485 at sunnavys-mb:  sunnavy | 2008-06-17 20:07:03 +0800
 we need mkdir -p for install-base, so mkpath comes in


Modified: Shipwright/trunk/lib/Shipwright/Build.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Build.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Build.pm	Tue Jun 17 08:07:15 2008
@@ -17,6 +17,7 @@
 use File::Copy qw/move copy/;
 use File::Find qw/find/;
 use File::Slurp;
+use File::Path;
 
 =head2 new
 
@@ -86,7 +87,7 @@
 
     $self->log->info( 'run build to install to ' . $self->install_base );
 
-    mkdir $self->install_base unless -e $self->install_base;
+    mkpath $self->install_base unless -e $self->install_base;
 
     chdir $self->build_base;
 

Modified: Shipwright/trunk/share/bin/shipwright-builder
==============================================================================
--- Shipwright/trunk/share/bin/shipwright-builder	(original)
+++ Shipwright/trunk/share/bin/shipwright-builder	Tue Jun 17 08:07:15 2008
@@ -6,6 +6,7 @@
 use File::Temp qw/tempdir/;
 use File::Copy qw/move copy/;
 use File::Find qw/find/;
+use File::Path;
 use Config;
 use Getopt::Long;
 use Cwd qw/getcwd abs_path/;
@@ -240,7 +241,7 @@
         $ENV{PERL_MM_USE_DEFAULT} = 1;
     }
 
-    mkdir $args{'install-base'} unless -e $args{'install-base'};
+    mkpath $args{'install-base'} unless -e $args{'install-base'};
 
     mkdir File::Spec->catfile( $args{'install-base'},       'etc' )
       unless -e File::Spec->catfile( $args{'install-base'}, 'etc' );