summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-01-19 18:08:18 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-01-19 18:08:18 +0000
commit4f816ef325f21f8e05fa305afdcc9732a5e15ccd (patch)
tree144de96d33e934fb54fba370ac22e4e53f6aa4cf /perl-install
parentbccac3d7c588e70adf140fc289a047587231b093 (diff)
downloaddrakx-4f816ef325f21f8e05fa305afdcc9732a5e15ccd.tar
drakx-4f816ef325f21f8e05fa305afdcc9732a5e15ccd.tar.gz
drakx-4f816ef325f21f8e05fa305afdcc9732a5e15ccd.tar.bz2
drakx-4f816ef325f21f8e05fa305afdcc9732a5e15ccd.tar.xz
drakx-4f816ef325f21f8e05fa305afdcc9732a5e15ccd.zip
(getSerialModem) fix device field
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/detect_devices.pm3
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} }