print(STDERR "Perl code fragment for exec shouldn't return!!\n");
exit(1);
} else {
- $cmd = [split(/\s+/, $cmd)] if ( ref($cmd) ne "ARRAY" );
+ $cmd = [split(/\s+/, $cmd)] if ( ref($cmd) ne "ARRAY" );
+ print $dbgf ": execing command $cmd\n";
alarm(0);
$cmd = [map { m/(.*)/ } @$cmd]; # untaint
#
$? = 0;
$cmd = join(" ", $cmd) if ( ref($cmd) eq "ARRAY" );
if ( (ref($cmd) eq "ARRAY" ? $cmd->[0] : $cmd) =~ /^\&/ ) {
+ print $dbgf ": evaluating command $cmd\n";
eval($cmd);
} else {
+ print $dbgf ": running command $cmd\n";
system($cmd);
}
}