diff --git a/src/lib/Hydra/Helper/Exec.pm b/src/lib/Hydra/Helper/Exec.pm index 3e24d60d..e4702ef7 100644 --- a/src/lib/Hydra/Helper/Exec.pm +++ b/src/lib/Hydra/Helper/Exec.pm @@ -7,8 +7,28 @@ our @ISA = qw(Exporter); our @EXPORT = qw( captureStdoutStderr captureStdoutStderrWithStdin + expectOkay ); +sub expectOkay { + my ($timeout, @cmd) = @_; + + my ($res, $stdout, $stderr) = captureStdoutStderrWithStdin($timeout, \@cmd, ""); + if ($res) { + die <