gdialog wrapper return values fixed

2 files changed, 12 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index e406ff0c..d8349a48 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-06-20  Mike Newman  <mikegtn@gnome.org>
+
+	* src/gdialog.in: fix return value with patch from Yann
+	<bloch@iie.cnam.fr>. Thanks!
+
 2003-06-21  Mike Newman  <mikegtn@gnome.org>
 
 	* configure.in: Added en_GB to ALL_LINGUAS
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);
+