From a9d86c934b269074240b0c94cf957ea19e0b08b2 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Fri, 23 Nov 2001 13:18:07 +0000 Subject: pcmcia: /var/run/stab is nor /var/lib/pcmcia/stab yes it probably doesn't bring anything valuable but it's how life is :-) --- perl-install/any.pm | 2 +- perl-install/detect_devices.pm | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/perl-install/any.pm b/perl-install/any.pm index ae73ddbf6..279bb3f21 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -846,7 +846,7 @@ sub report_bug { header("scsi"), cat_("/proc/scsi/scsi"), header("lsmod"), cat_("/proc/modules"), header("cmdline"), cat_("/proc/cmdline"), - header("pcmcia: stab"), cat_("/var/run/stab"), + header("pcmcia: stab"), cat_('/var/run/stab'), cat_('/var/lib/pcmcia/stab'), header("usb"), cat_("/proc/bus/usb/devices"), header("partitions"), cat_("/proc/partitions"), header("cpuinfo"), cat_("/proc/cpuinfo"), diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index 0fa9297aa..c5f7ff4a2 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -249,10 +249,10 @@ sub usb_probe { } sub pcmcia_probe { - -e "/var/run/stab" or return (); + -e '/var/run/stab' || -e '/var/lib/pcmcia/stab' or return (); my (@devs, $desc); - foreach (cat_("/var/run/stab")) { + foreach (cat_('/var/run/stab'), cat_('/var/lib/pcmcia/stab')) { if (/^Socket\s+\d+:\s+(.*)/) { $desc = $1; } else { -- cgit v1.2.1