Re: [patch] First batch of whitespace patches (ExtUtils::MakeMaker)

On Aug 26, 2007, at 3:33 PM, Michael G Schwern wrote:

> Max Maischein wrote:
>>
>> How about using
>>
>>     system(LIST)
>
> Alas, need to capture output.
>
>
>> or the list form of backticks instead of interpolating strings to  
>> feed
>> to the shell.
>
> What list form of backticks?


Module::Build has this helper function:

sub _backticks {
   my ($self, @cmd) = @_;
   if ($self->have_forkpipe) {
     local *FH;
     my $pid = open *FH, "-|";
     if ($pid) {
       return wantarray ? <FH> : join '', <FH>;
     } else {
       die "Can't execute @cmd: $!\n" unless defined $pid;
       exec { $cmd[0] } @cmd;
     }
   } else {
     my $cmd = $self->_quote_args(@cmd);
     return `$cmd`;
   }
}

sub have_forkpipe { 1 }

  -Ken