From 425724a8d1c5624bd6db189267466b7aeaaa3e61 Mon Sep 17 00:00:00 2001 From: Mike Newman Date: Sun, 29 Jun 2003 16:21:12 +0000 Subject: gdialog wrapper return values fixed --- src/gdialog.in | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/gdialog.in b/src/gdialog.in index 48699d8c..004571ba 100755 --- a/src/gdialog.in +++ b/src/gdialog.in @@ -305,4 +305,10 @@ ARG: while ($argn < $args) { # execute the constructed zenity command line $command .= " 2>&1"; -system($command); + +# perl doc: The return value of system() is the exit status of the +#program as returned by the wait() call. To get the actual exit value +# divide by 256. + +exit(system($command)/256); + -- cgit