From 5c6cc975ce1918edf4c99ca9b0f7c10ad8ba184a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 14 Apr 2001 13:27:51 +0000
Subject: (exit): fix the exit code

---
 perl-install/interactive_newt.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/interactive_newt.pm b/perl-install/interactive_newt.pm
index 1c63591b1..1f1f1157f 100644
--- a/perl-install/interactive_newt.pm
+++ b/perl-install/interactive_newt.pm
@@ -28,7 +28,7 @@ sub leave_console { Newt::Resume }
 sub suspend { Newt::Suspend }
 sub resume { Newt::Resume }
 sub end() { Newt::Finished }
-sub exit() { end; exit($_[0]) }
+sub exit() { end; exit($_[1]) }
 END { end() }
 
 sub myTextbox {
-- 
cgit v1.2.1