run_command: allow to opt-out dying on non-zero exit code
Signed-off-by: Thomas Lamprecht <[email protected]>
This commit is contained in:
+3
-3
@@ -367,7 +367,7 @@ sub ve_exec {
|
|||||||
}
|
}
|
||||||
|
|
||||||
sub run_command {
|
sub run_command {
|
||||||
my ($self, $cmd, $input, $getoutput) = @_;
|
my ($self, $cmd, $input, $getoutput, $noerr) = @_;
|
||||||
|
|
||||||
my $reader = IO::File->new();
|
my $reader = IO::File->new();
|
||||||
my $writer = IO::File->new();
|
my $writer = IO::File->new();
|
||||||
@@ -428,9 +428,9 @@ sub run_command {
|
|||||||
waitpid ($pid, 0);
|
waitpid ($pid, 0);
|
||||||
my $ec = ($? >> 8);
|
my $ec = ($? >> 8);
|
||||||
|
|
||||||
die "command '$cmdstr' failed with exit code $ec\n" if $ec;
|
die "command '$cmdstr' failed with exit code $ec\n" if $ec && !$noerr;
|
||||||
|
|
||||||
return $res;
|
return wantarray ? ($res, $ec) : $res;
|
||||||
}
|
}
|
||||||
|
|
||||||
sub start_container {
|
sub start_container {
|
||||||
|
|||||||
Reference in New Issue
Block a user