From 425724a8d1c5624bd6db189267466b7aeaaa3e61 Mon Sep 17 00:00:00 2001
From: Mike Newman <MikeGTN@src.gnome.org>
Date: Sun, 29 Jun 2003 16:21:12 +0000
Subject: [PATCH] gdialog wrapper return values fixed

---
 ChangeLog      | 5 +++++
 src/gdialog.in | 8 +++++++-
 2 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index e406ff0..d8349a4 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 48699d8..004571b 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);
+