package Devscripts::Utils;
use strict;
use Devscripts::Output;
use Exporter 'import';
use IPC::Run qw(run);
our @EXPORT = qw(ds_exec ds_exec_no_fail);
sub ds_exec_no_fail {
{
local $, = ' ';
ds_debug "Execute: @_...";
}
run \@_, '>', '/dev/null';
return $?;
}
sub ds_exec {
{
local $, = ' ';
ds_debug "Execute: @_...";
}
run \@_;
if ($?) {
local $, = ' ';
ds_die "Command failed (@_)";
}
}
1;