summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
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) };