From 1d27dbf5e28c61be9eeb078c44f2481fb25e7195 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 20 Feb 2001 01:09:07 +0000
Subject: major move. now ask_from_list returns false when canceled (it doesn't
 die 'ask_from_list canceled' anymore)

---
 perl-install/standalone/mousedrake | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/standalone/mousedrake b/perl-install/standalone/mousedrake
index aff16a1b6..ebb332f89 100755
--- a/perl-install/standalone/mousedrake
+++ b/perl-install/standalone/mousedrake
@@ -42,7 +42,7 @@ $o->{mouse}{device} =
   $o->ask_from_listf(_("Mouse Port"),
 		     _("Please choose on which serial port your mouse is connected to."),
 		     \&mouse::serial_port2text,
-		     [ mouse::serial_ports ]) if $mouse->{type} eq 'serial';
+		     [ mouse::serial_ports ]) || goto begin if $mouse->{type} eq 'serial';
 
 dumpValue(\$mouse);
 mouse::write_conf($mouse);
-- 
cgit v1.2.1