summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorDamien Chaumette <dchaumette@mandriva.com>2002-09-05 15:13:33 +0000
committerDamien Chaumette <dchaumette@mandriva.com>2002-09-05 15:13:33 +0000
commitadf4a072edd2d09dcc8bb2422355f63cb60ff54a (patch)
tree210ef2b210b3b9fd068071b811a39e1be6a4efb3 /perl-install
parentd29f1cc049c335f4b4cb0dc578fb7d47913f0fed (diff)
downloaddrakx-adf4a072edd2d09dcc8bb2422355f63cb60ff54a.tar
drakx-adf4a072edd2d09dcc8bb2422355f63cb60ff54a.tar.gz
drakx-adf4a072edd2d09dcc8bb2422355f63cb60ff54a.tar.bz2
drakx-adf4a072edd2d09dcc8bb2422355f63cb60ff54a.tar.xz
drakx-adf4a072edd2d09dcc8bb2422355f63cb60ff54a.zip
- fix drakconnect broken modem detection
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/modem.pm4
1 files changed, 2 insertions, 2 deletions
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) };