From c7ea22b0e9c959e77a19e728ba738cb91bca103d Mon Sep 17 00:00:00 2001 From: Maarten Vanraes Date: Sun, 20 Mar 2016 10:21:28 +0100 Subject: RunProgram: allow to return exitcode of the program --- lib/ManaTools/Shared/RunProgram.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'lib') diff --git a/lib/ManaTools/Shared/RunProgram.pm b/lib/ManaTools/Shared/RunProgram.pm index dc8c1fe4..1b60652c 100644 --- a/lib/ManaTools/Shared/RunProgram.pm +++ b/lib/ManaTools/Shared/RunProgram.pm @@ -186,6 +186,8 @@ make sure environment is set right and keep a copy of the X11 cookie =item * B: execution of $name will be aborted after C seconds +=item * B: function will return the exit code of the process + =back eg: @@ -327,8 +329,10 @@ sub raw { } : do { exec $name, @args; }; + my $exitcode = $!; + return $exitcode if $options->{exitcode}; if (!$ok) { - _die_exit("exec of $real_name failed: $!"); + _die_exit("exec of $real_name failed: $exitcode"); } } -- cgit v1.2.1