From cb9eddf62ade56b3bc546b87d72ffc4c57b7618d Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 8 Mar 2005 13:18:21 +0000
Subject: log program exiting

---
 perl-install/interactive.pm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'perl-install/interactive.pm')

diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index b7130fe5b..982f7fe65 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -122,7 +122,14 @@ sub leave_console {}
 sub suspend {}
 sub resume {}
 sub end {}
-sub exit { exit($_[0]) }
+sub exit {
+    if ($::isStandalone) {
+        require standalone;
+        standalone::exit($_[0]);
+    } else {
+        exit($_[0])
+    }
+}
 
 #-######################################################################################
 #- Interactive functions
-- 
cgit v1.2.1