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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Fri Feb 13 23:35:14 2009
New Revision: 18393

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/share/bin/shipwright-builder

Log:
 r19850 at sunnavys-mb:  sunnavy | 2009-02-14 12:29:26 +0800
 clean inc when building


Modified: Shipwright/trunk/share/bin/shipwright-builder
==============================================================================
--- Shipwright/trunk/share/bin/shipwright-builder	(original)
+++ Shipwright/trunk/share/bin/shipwright-builder	Fri Feb 13 23:35:14 2009
@@ -11,16 +11,9 @@
 use Getopt::Long;
 use Cwd qw/getcwd abs_path/;
 use inc::YAML::Tiny;
+use inc::Shipwright::Util::CleanINC;
 use Carp qw/confess/;
 
-BEGIN {
-    @INC = (
-        $Config::Config{privlibexp},
-        $Config::Config{archlibexp},
-        split ':', $ENV{PERL5LIB}
-    );
-}
-
 my $build_base = getcwd;
 
 my %args;
@@ -362,6 +355,7 @@
     if ( -e catfile( '..', '..', 'scripts', $dir, 'build.pl' ) ) {
         print $log "found build.pl for $dir, will install $dir using that\n";
         my $cmd = join ' ', $args{perl} || $^X,
+           '-Minc::Shipwright::Util::CleanINC',
           catfile( '..', '..', 'scripts', $dir, 'build.pl' ),
           '--install-base' => $args{'install-base'},
           '--flags'        => join( ',', keys %{ $args{flags} } ),
@@ -591,6 +585,7 @@
     if ( -e catfile( '..', '..', 'scripts', $dir, 'build.pl' ) ) {
         print $log "found build.pl for $dir, will clean $dir using that\n";
         $cmd = join ' ', $args{perl} || $^X,
+          '-Minc::Shipwright::Util::CleanINC',
           catfile( '..', '..', 'scripts', $dir, 'build.pl' ),
           '--install-base' => $args{'install-base'},
           '--flags'        => join( ',', keys %{ $args{flags} } ),