From 608bd17483b357688e5cf967ac37a09c560c21ac Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Fri, 25 Feb 2005 17:30:10 +0000
Subject: pre-detect modem device (instead of mouse device ...) and do it at
 the right place

---
 perl-install/network/netconnect.pm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 500f3710d..50fcfddcc 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -563,6 +563,9 @@ Take a look at http://www.linmodems.org"),
 
                    choose_serial_port =>
                    {
+                    pre => sub {
+                        $modem->{device} ||= readlink "$::prefix/dev/modem";
+                    },
                     name => N("Please choose which serial port your modem is connected to."),
                     interactive_help_id => 'selectSerialPort',
                     data => sub {
@@ -618,10 +621,6 @@ Take a look at http://www.linmodems.org"),
 
                    ppp_account =>
                    {
-                    pre => sub {
-                        $mouse ||= {};
-                        $mouse->{device} ||= readlink "$::prefix/dev/mouse";
-                    },
                     name => N("Dialup: account options"),
                     data => sub {
                             [
-- 
cgit v1.2.1