Dashboard
PHP:
8.3.30
OS:
Linux
User:
dh_mnqueb
/
/
usr
/
share
/
perl5
/
Devscripts
📤 Upload
📝 New File
📁 New Folder
Close
Editing: 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;
Save
Cancel