summaryrefslogtreecommitdiffstats
path: root/perl-install/modules.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-10-06 09:12:56 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-10-06 09:12:56 +0000
commit8f7cb6dae22fc5adc6eb8c57605e16f97cfee179 (patch)
tree51a302870b37255a39a4758b4ceb24ed798e4fba /perl-install/modules.pm
parentca14a502d413a9a80a035b7fe29541fcfe0da637 (diff)
downloaddrakx-8f7cb6dae22fc5adc6eb8c57605e16f97cfee179.tar
drakx-8f7cb6dae22fc5adc6eb8c57605e16f97cfee179.tar.gz
drakx-8f7cb6dae22fc5adc6eb8c57605e16f97cfee179.tar.bz2
drakx-8f7cb6dae22fc5adc6eb8c57605e16f97cfee179.tar.xz
drakx-8f7cb6dae22fc5adc6eb8c57605e16f97cfee179.zip
no_comment
Diffstat (limited to 'perl-install/modules.pm')
-rw-r--r--perl-install/modules.pm9
1 files changed, 2 insertions, 7 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index caff2f2a5..0b53dfa7a 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -292,14 +292,9 @@ sub load_thiskind($;&) {
sub get_pcmcia_devices($) {
my ($type) = @_;
- my $file = "/var/run/stab";
- my @devs;
- my $module;
- my $desc;
+ my (@devs, $module, $desc);
- local *F;
- open F, $file or return; #- no pcmcia is not an error.
- while (<F>) {
+ foreach (cat_("/var/run/stab")) {
$desc = $1 if /^Socket\s+\d+:\s+(.*)/;
$module = $1 if /^\d+\s+$type[^\s]*\s+([^\s]+)/;
if ($desc && $module) {