diff options
author | Olivier Blin <oblin@mandriva.com> | 2010-01-05 18:28:27 +0000 |
---|---|---|
committer | Olivier Blin <oblin@mandriva.com> | 2010-01-05 18:28:27 +0000 |
commit | 4a9333bc54357f299ec504264395044422d9cec4 (patch) | |
tree | ed97126dbda50c24d89e3b00047ae1e48dca83a0 /perl-install/detect_devices.pm | |
parent | c2d68dfae898c67cb109c4ffc81bad0cca556bd5 (diff) | |
download | drakx-4a9333bc54357f299ec504264395044422d9cec4.tar drakx-4a9333bc54357f299ec504264395044422d9cec4.tar.gz drakx-4a9333bc54357f299ec504264395044422d9cec4.tar.bz2 drakx-4a9333bc54357f299ec504264395044422d9cec4.tar.xz drakx-4a9333bc54357f299ec504264395044422d9cec4.zip |
fix detecting pcmcia serial devices
Diffstat (limited to 'perl-install/detect_devices.pm')
-rw-r--r-- | perl-install/detect_devices.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index 62151b65a..b076187a4 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -906,8 +906,8 @@ sub pcmcia_probe() { map { my $dir = "$dev_dir/$_"; my $get = sub { chomp_(cat_("$dir/$_[0]")) }; - my $class_dev = first(glob_("$dir/tty*")); - my $device = $class_dev && get_sysfs_field_from_link($dir, basename($class_dev)); + my $class_dev = first(glob_("$dir/tty/tty*")); + my $device = $class_dev && basename($class_dev); my $modalias = $get->('modalias'); my $driver = get_sysfs_field_from_link($dir, 'driver'); #- fallback on modalias result |