[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.566,1.567

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

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

Modified Files:
	Base.pm 
Log Message:
Use backticks() method a couple more places

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.566
retrieving revision 1.567
diff -u -d -r1.566 -r1.567
--- Base.pm	25 Mar 2006 04:50:16 -0000	1.566
+++ Base.pm	28 Mar 2006 04:28:23 -0000	1.567
@@ -1267,7 +1267,7 @@
     
     my $perl = ref($self) ? $self->perl : $self->find_perl_interpreter;
     
-    my @inc = `$perl -le "print for \@INC"`;
+    my @inc = $self->_backticks($perl, '-le', 'print for @INC');
     chomp @inc;
     
     return @default_inc = @inc;
@@ -3673,17 +3673,17 @@
     if (defined $lib_typemap and -e $lib_typemap) {
       push @typemaps, 'typemap';
     }
-    my $typemaps = join ' ', map qq{-typemap "$_"}, @typemaps;
+    @typemaps = map {+'-typemap', $_} @typemaps;
 
     my $cf = $self->config;
     my $perl = $self->{properties}{perl};
     
-    my $command = (qq{$perl "-I$cf->{installarchlib}" "-I$cf->{installprivlib}" "$xsubpp" -noprototypes } .
-		   qq{$typemaps "$file"});
+    my @command = ($perl, "-I$cf->{installarchlib}", "-I$cf->{installprivlib}", $xsubpp, '-noprototypes',
+		   @typemaps, $file);
     
-    $self->log_info("$command\n");
+    $self->log_info("@command\n");
     my $fh = IO::File->new("> $args{outfile}") or die "Couldn't write $args{outfile}: $!";
-    print $fh `$command`;
+    print {$fh} $self->_backticks(@command);
     close $fh;
   }
 }