From 4f816ef325f21f8e05fa305afdcc9732a5e15ccd Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 19 Jan 2004 18:08:18 +0000
Subject: (getSerialModem) fix device field

---
 perl-install/detect_devices.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'perl-install')

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} }
-- 
cgit v1.2.1