diff options
author | Francois Pons <fpons@mandriva.com> | 2000-05-09 11:29:46 +0000 |
---|---|---|
committer | Francois Pons <fpons@mandriva.com> | 2000-05-09 11:29:46 +0000 |
commit | e29430e040fb03c614900bbb39ec428c610a8726 (patch) | |
tree | f6108ee0710306313b3e176aefd84c9063e3163e /perl-install | |
parent | 3dd7b549b27aeead93b3980b0debd40a4dba806b (diff) | |
download | drakx-backup-do-not-use-e29430e040fb03c614900bbb39ec428c610a8726.tar drakx-backup-do-not-use-e29430e040fb03c614900bbb39ec428c610a8726.tar.gz drakx-backup-do-not-use-e29430e040fb03c614900bbb39ec428c610a8726.tar.bz2 drakx-backup-do-not-use-e29430e040fb03c614900bbb39ec428c610a8726.tar.xz drakx-backup-do-not-use-e29430e040fb03c614900bbb39ec428c610a8726.zip |
*** empty log message ***
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/detect_devices.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index 78f0ff218..ad35871cc 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -283,7 +283,7 @@ sub probeSerialDevices { open F, "serial_probe 2>/dev/null |"; my %current = (); foreach (<F>) { chomp; - $serialprobe{$current{DEVICE}} = { %current } and %current = () if /^\s*$/; + $serialprobe{$current{DEVICE}} = { %current } and %current = () if /^\s*$/ && $current{DEVICE}; $current{$1} = $2 if /^([^=]+)=(.*)$/; } close F; |