HEX
Server: Apache
System: Linux pdx1-shared-a1-38 6.6.104-grsec-jammy+ #3 SMP Tue Sep 16 00:28:11 UTC 2025 x86_64
User: mmickelson (3396398)
PHP: 8.1.31
Disabled: NONE
Upload Files
File: //usr/share/perl5/Devscripts/Utils.pm
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;