[Bps-public-commit] r18390 - in Shipwright/trunk: lib/Shipwright/Source

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Fri Feb 13 23:34:39 2009
New Revision: 18390

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

Log:
 r19847 at sunnavys-mb:  sunnavy | 2009-02-14 12:27:15 +0800
 clean inc when getting sources


Modified: Shipwright/trunk/lib/Shipwright/Source/Base.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Source/Base.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Source/Base.pm	Fri Feb 13 23:34:39 2009
@@ -99,7 +99,7 @@
         chdir catdir($path);
 
         if ( -e 'Build.PL' ) {
-            Shipwright::Util->run( [ $^X, 'Build.PL' ] );
+            Shipwright::Util->run( [ $^X, '-MShipwright::Util::CleanINC', 'Build.PL' ] );
             my $source = read_file( catfile( '_build', 'prereqs' ) )
               or confess "can't read _build/prereqs: $!";
             my $eval = '$require = ' . $source;
@@ -207,7 +207,7 @@
                 $shipwright_makefile .= $makefile;
                 write_file( 'shipwright_makefile.pl', $shipwright_makefile );
 
-                Shipwright::Util->run( [ $^X, 'shipwright_makefile.pl' ] );
+                Shipwright::Util->run( [ $^X, '-MShipwright::Util::CleanINC', 'shipwright_makefile.pl' ] );
                 my $prereqs = read_file( catfile('shipwright_prereqs') )
                   or confess "can't read prereqs: $!";
                 eval $prereqs or confess "eval error: $@";    ## no critic
@@ -218,7 +218,7 @@
             else {
 
                 # we extract the deps from Makefile
-                Shipwright::Util->run( [ $^X, 'Makefile.PL' ] );
+                Shipwright::Util->run( [ $^X, '-MShipwright::Util::CleanINC', 'Makefile.PL' ] );
                 my ($source) = grep { /PREREQ_PM/ } read_file('Makefile');
                 if ( $source && $source =~ /({.*})/ ) {
                     my $eval .= '$require = ' . $1;