summaryrefslogtreecommitdiffstats
path: root/perl-install/detect_devices.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-09-12 09:13:15 +0000
committerFrancois Pons <fpons@mandriva.com>2000-09-12 09:13:15 +0000
commit55597dec8c0060b2dab62c51783b18319bb1eb10 (patch)
tree56e2ec87730623ad4e603aab02fbe4390b3f24e4 /perl-install/detect_devices.pm
parent3a6829ded0f6b8d7ebdff8aec615b134e19b8943 (diff)
downloaddrakx-55597dec8c0060b2dab62c51783b18319bb1eb10.tar
drakx-55597dec8c0060b2dab62c51783b18319bb1eb10.tar.gz
drakx-55597dec8c0060b2dab62c51783b18319bb1eb10.tar.bz2
drakx-55597dec8c0060b2dab62c51783b18319bb1eb10.tar.xz
drakx-55597dec8c0060b2dab62c51783b18319bb1eb10.zip
*** empty log message ***
Diffstat (limited to 'perl-install/detect_devices.pm')
-rw-r--r--perl-install/detect_devices.pm7
1 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index b8bad956c..768569bac 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -283,13 +283,14 @@ sub probeSerialDevices {
-l "/dev/mouse" and $serialprobe{"/dev/" . readlink "/dev/mouse"} = undef;
foreach (keys %serialprobe) { m|^/dev/(.*)| and touch "/var/lock/LCK..$1" }
- #- start probing all serial ports... really faster than before :-)
+ print STDERR "Please wait while probing serial ports...\n";
+ #- start probing all serial ports... really faster than before ...
+ #- ... but still take some time :-)
local *F;
open F, "serial_probe 2>/dev/null |";
my %current = (); foreach (<F>) {
- chomp;
$serialprobe{$current{DEVICE}} = { %current } and %current = () if /^\s*$/ && $current{DEVICE};
- $current{$1} = $2 if /^([^=]+)=(.*)$/;
+ $current{$1} = $2 if /^([^=]+)=(.*?)\s*$/;
}
close F;