Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

perlcc: fix --no-spawn

return arrayrefs
  • Loading branch information...
commit ccdc67c0dbc2007cb30166b0a8a3ea1b630dc4ac 1 parent 6be7a1d
@rurban authored
Showing with 3 additions and 3 deletions.
  1. +3 −3 script/perlcc.PL
View
6 script/perlcc.PL
@@ -806,9 +806,9 @@ sub spawnit {
my ($command) = shift;
my (@error,@output,$errname);
if (opt('dryrun')) {
- print "$command\n"; return (\@output, \@error);
+ print "$command\n";;
}
- if ($Options->{spawn}) {
+ elsif ($Options->{spawn}) {
(undef, $errname) = tempfile("pccXXXXX");
{
open (S_OUT, "$command 2>$errname |")
@@ -820,10 +820,10 @@ sub spawnit {
close S_ERROR;
close S_OUT;
unlink $errname or _die("Can't unlink error file $errname\n");
- return (\@output, \@error);
} else {
@output = split /\n/, `$command`;
}
+ return (\@output, \@error);
}
sub helpme {
Please sign in to comment.
Something went wrong with that request. Please try again.