[Bps-public-commit] r18410 - in Shipwright/trunk: lib/Shipwright/Backend

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sun Feb 15 23:25:11 2009
New Revision: 18410

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/lib/Shipwright/Backend/Base.pm

Log:
 r19888 at sunnavys-mb:  sunnavy | 2009-02-16 12:23:49 +0800
 copy Module::Build to repository


Modified: Shipwright/trunk/lib/Shipwright/Backend/Base.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Backend/Base.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Backend/Base.pm	Sun Feb 15 23:25:11 2009
@@ -60,7 +60,8 @@
     my $dir =
       tempdir( 'shipwright_backend_base_XXXXXX', CLEANUP => 1, TMPDIR => 1 );
 
-    dircopy( Shipwright::Util->share_root, $dir );
+    dircopy( Shipwright::Util->share_root, $dir )
+      or confess "copy share_root failed: $!";
 
     # copy YAML/Tiny.pm to inc/
     my $yaml_tiny_path = catdir( $dir, 'inc', 'YAML' );
@@ -75,6 +76,20 @@
         $clean_inc_path )
       or confess "copy Shipwright/Util/CleanINC.pm failed: $!";
 
+    my $module_build_path = catdir( $dir, 'inc', 'Module', );
+    mkpath catdir( $module_build_path, 'Build' );
+    copy( catdir( Module::Info->new_from_module('Module::Build')->file),
+            $module_build_path ) or confess "copy Module/Build.pm failed: $!";
+    dircopy(
+        catdir(
+            Module::Info->new_from_module('Module::Build')->inc_dir, 'Module',
+            'Build'
+        ),
+        catdir( $module_build_path, 'Build' )
+      )
+      or confess "copy
+        Module/Build failed: $!";
+
     # set proper permissions for yml under /shipwright/
     my $sw_dir = catdir( $dir, 'shipwright' );
     my $sw_dh;