[Bps-public-commit] Shipwright branch, master, updated. 7dd3fba5ad65edf470d94f15af70e1ed907adc53

[sunnavy at bestpractical.com]

The branch, master has been updated
       via  7dd3fba5ad65edf470d94f15af70e1ed907adc53 (commit)
      from  4c2e426a32fc9e16a6d77f697b7c3631cb233329 (commit)

Summary of changes:
 lib/Shipwright/Backend/Base.pm |   10 ++++++++++
 1 files changed, 10 insertions(+), 0 deletions(-)

- Log -----------------------------------------------------------------
commit 7dd3fba5ad65edf470d94f15af70e1ed907adc53
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Thu Sep 10 13:26:58 2009 +0800

    cp File::Path to inc/ in vessel

diff --git a/lib/Shipwright/Backend/Base.pm b/lib/Shipwright/Backend/Base.pm
index 32da241..821eace 100644
--- a/lib/Shipwright/Backend/Base.pm
+++ b/lib/Shipwright/Backend/Base.pm
@@ -68,6 +68,7 @@ sub initialize {
     $self->_install_module_build($dir);
     $self->_install_file_compare($dir);
     $self->_install_file_copy_recursive($dir);
+    $self->_install_file_path($dir);
 
     # set proper permissions for yml under /shipwright/
     my $sw_dir = catdir( $dir, 'shipwright' );
@@ -141,6 +142,15 @@ sub _install_file_copy_recursive {
       or confess "copy File/Copy/Recursive.pm failed: $!";
 }
 
+sub _install_file_path {
+    my $self = shift;
+    my $dir  = shift;
+
+    my $path = catdir( $dir, 'inc', 'File' );
+    rcopy( Module::Info->new_from_module('File::Path')->file, $path )
+      or confess "copy File/Path.pm failed: $!";
+}
+
 =item import
 
 import a dist.

-----------------------------------------------------------------------