40 lines
658 B
Perl
40 lines
658 B
Perl
package Devscripts::Utils;
|
|
|
|
use strict;
|
|
use Devscripts::Output;
|
|
use Dpkg::IPC;
|
|
use Exporter 'import';
|
|
|
|
our @EXPORT = qw(ds_exec ds_exec_no_fail);
|
|
|
|
sub ds_exec_no_fail {
|
|
{
|
|
local $, = ' ';
|
|
ds_debug "Execute: @_...";
|
|
}
|
|
spawn(
|
|
exec => [@_],
|
|
to_file => '/dev/null',
|
|
wait_child => 1,
|
|
nocheck => 1,
|
|
);
|
|
return $?;
|
|
}
|
|
|
|
sub ds_exec {
|
|
{
|
|
local $, = ' ';
|
|
ds_debug "Execute: @_...";
|
|
}
|
|
spawn(
|
|
exec => [@_],
|
|
wait_child => 1,
|
|
nocheck => 1,
|
|
);
|
|
if ($?) {
|
|
local $, = ' ';
|
|
ds_die "Command failed (@_)";
|
|
}
|
|
}
|
|
|
|
1;
|