diff options
| -rw-r--r-- | perl-install/detect_devices.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index d02c5dd78..c426b147c 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -404,12 +404,11 @@ sub getSerialModem { next if $mouse->{device} =~ /$port/; my $device = "/dev/$port"; next unless -e $device && hasModem($device); + $serialprobe{$device}->{device} = $device; push @modems, $serialprobe{$device}; } my @devs = pcmcia_probe(); foreach my $modem (@modems) { - $modem->{device} = $modem->{DEVICE}; - delete $modem->{DEVICE}; #- add an alias for macserial on PPC modules::add_alias('serial', $serdev) if arch() =~ /ppc/ && $modem->{device}; foreach (@devs) { $_->{type} =~ /serial/ and $modem->{device} = $_->{device} } |