[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.363,1.364

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

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

Modified Files:
	Base.pm 
Log Message:
Create a run_perl_command() method and make run_perl_script() use it

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.363
retrieving revision 1.364
diff -C2 -d -r1.363 -r1.364
*** Base.pm	18 Dec 2004 20:57:05 -0000	1.363
--- Base.pm	18 Dec 2004 21:15:42 -0000	1.364
***************
*** 2721,2724 ****
--- 2721,2730 ----
      $_ = [ $self->split_like_shell($_) ] unless ref();
    }
+   return $self->run_perl_command([@$preargs, $script, @$postargs]);
+ }
+ 
+ sub run_perl_command {
+   my ($self, $args) = @_;
+   $args = [ $self->split_like_shell($args) ] unless ref($args);
    my $perl = ref($self) ? $self->perl : $self->find_perl_interpreter;
  
***************
*** 2727,2731 ****
    local $ENV{PERL5LIB} = join $c->{path_sep}, $self->_added_to_INC;
  
!   return $self->do_system($perl, @$preargs, $script, @$postargs);
  }
  
--- 2733,2737 ----
    local $ENV{PERL5LIB} = join $c->{path_sep}, $self->_added_to_INC;
  
!   return $self->do_system($perl, @$args);
  }