From 1eb4032835f21848b14ca0eec83c203e7b8b46dd Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Wed, 29 Aug 2001 21:58:24 +0000
Subject: quit_global

---
 perl-install/standalone/drakautoinst | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl-install/standalone/drakautoinst')

diff --git a/perl-install/standalone/drakautoinst b/perl-install/standalone/drakautoinst
index 5a05d744e..e811a2e31 100755
--- a/perl-install/standalone/drakautoinst
+++ b/perl-install/standalone/drakautoinst
@@ -118,13 +118,16 @@ quit_global($in, 0);
 
 sub quit_global {
     my ($in, $exitcode) = @_;
-    $::isEmbedded ? kill USR1, $::CCPID : $in->exit(0);
+    $::isEmbedded ? kill USR1, $::CCPID : $in->exit($exitcode);
     goto begin;
 }
 
 
 #-------------------------------------------------
 #- $Log$
+#- Revision 1.5  2001/08/29 21:58:24  gc
+#- quit_global
+#-
 #- Revision 1.4  2001/08/26 14:34:10  gc
 #- require -> use
 #-
-- 
cgit v1.2.1