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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Mon Feb 16 12:51:36 2009
New Revision: 18414

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

Log:
 r19897 at sunnavys-mb:  sunnavy | 2009-02-17 01:42:17 +0800
 add MM to repository too


Modified: Shipwright/trunk/lib/Shipwright/Backend/Base.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Backend/Base.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Backend/Base.pm	Mon Feb 16 12:51:36 2009
@@ -87,8 +87,19 @@
         ),
         catdir( $module_build_path, 'Build' )
       )
-      or confess "copy
-        Module/Build failed: $!";
+      or confess "copy Module/Build failed: $!";
+
+    my $mm_path = catdir( $dir, 'inc', 'ExtUtils' );
+    mkpath catdir( $mm_path, 'MakeMaker' );
+    copy( catdir( Module::Info->new_from_module('ExtUtils::MakeMaker')->file),
+            $mm_path ) or confess "copy ExtUtils/MakeMaker.pm failed: $!";
+    dircopy(
+        catdir(
+            Module::Info->new_from_module('ExtUtils::MakeMaker')->inc_dir,
+            'ExtUtils', 'MakeMaker'
+        ),
+        catdir( $mm_path, 'MakeMaker' )
+    ) or confess "copy ExtUtils/MakeMaker failed: $!";
 
     # set proper permissions for yml under /shipwright/
     my $sw_dir = catdir( $dir, 'shipwright' );