From adf4a072edd2d09dcc8bb2422355f63cb60ff54a Mon Sep 17 00:00:00 2001
From: Damien Chaumette <dchaumette@mandriva.com>
Date: Thu, 5 Sep 2002 15:13:33 +0000
Subject: - fix drakconnect broken modem detection

---
 perl-install/network/modem.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/network')

diff --git a/perl-install/network/modem.pm b/perl-install/network/modem.pm
index 8e6f445a7..9929d23ab 100644
--- a/perl-install/network/modem.pm
+++ b/perl-install/network/modem.pm
@@ -66,8 +66,8 @@ sub pppConfig {
 #- output:
 #-  $modem->{device} : device where the modem were detected
 sub modem_detect_backend {
-    my $modem = @_;
-    my $mouse = {};
+    my ($modem, $mouse) = @_;
+    $mouse ||= {};
     $mouse->{device} = readlink "/dev/mouse";
     my $serdev = arch() =~ /ppc/ ? "macserial" : "serial";
     eval { modules::load($serdev) };
-- 
cgit v1.2.1