module-build-checkins

[Ken W. <kwi...@us...>]

Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4410/lib/Module/Build

Modified Files:
      Tag: release-0_26_branch
	Base.pm 
Log Message:
Propagate @INC in run_perl_script()

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.340.2.8
retrieving revision 1.340.2.9
diff -C2 -d -r1.340.2.8 -r1.340.2.9
*** Base.pm	12 Dec 2004 18:04:18 -0000	1.340.2.8
--- Base.pm	13 Dec 2004 04:16:40 -0000	1.340.2.9
***************
*** 941,945 ****
  
  # Return any directories in @INC which are not in the default @INC for
! # this Perl.  For example, stuff passed in with -I or loaded with "use lib".
  sub _added_to_INC {
    my $self = shift;
--- 941,945 ----
  
  # Return any directories in @INC which are not in the default @INC for
! # this perl.  For example, stuff passed in with -I or loaded with "use lib".
  sub _added_to_INC {
    my $self = shift;
***************
*** 956,962 ****
    local $ENV{PERL5LIB};  # this is not considered part of the default.
  
!   my $perl = $self->perl;
  
!   my @inc =`$perl -le "print for \@INC"`;
    chomp @inc;
  
--- 956,962 ----
    local $ENV{PERL5LIB};  # this is not considered part of the default.
  
!   my $perl = ref($self) ? $self->perl : $self->find_perl_interpreter;
  
!   my @inc = `$perl -le "print for \@INC"`;
    chomp @inc;
  
***************
*** 1455,1459 ****
    
    while (my ($file, $to) = each %$files) {
-     local $ENV{'PERL5LIB'} = join $self->{config}{path_sep}, @INC;
      unless ($self->up_to_date( $file, $to )) {
        $self->run_perl_script($file, [], [@$to]);
--- 1455,1458 ----
***************
*** 2078,2082 ****
    # XXX could be different names for scripts
    
-   local $ENV{'PERL5LIB'} = join $self->{config}{path_sep}, @INC;
    $self->run_perl_script('Build.PL') or die "Error executing 'Build.PL' in dist directory: $!";
    $self->run_perl_script('Build') or die "Error executing 'Build' in dist directory: $!";
--- 2077,2080 ----
***************
*** 2599,2603 ****
    }
    my $perl = ref($self) ? $self->perl : $self->find_perl_interpreter;
!   
    return $self->do_system($perl, @$preargs, $script, @$postargs);
  }
--- 2597,2605 ----
    }
    my $perl = ref($self) ? $self->perl : $self->find_perl_interpreter;
! 
!   # Make sure our local additions to @INC are propagated to the subprocess
!   my $c = ref $self ? $self->config : \%Config::Config;
!   local $ENV{PERL5LIB} = join $c->{path_sep}, $self->_added_to_INC;
! 
    return $self->do_system($perl, @$preargs, $script, @$postargs);
  }