diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-10-06 09:12:56 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-10-06 09:12:56 +0000 |
| commit | 8f7cb6dae22fc5adc6eb8c57605e16f97cfee179 (patch) | |
| tree | 51a302870b37255a39a4758b4ceb24ed798e4fba /perl-install/modules.pm | |
| parent | ca14a502d413a9a80a035b7fe29541fcfe0da637 (diff) | |
| download | drakx-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.pm | 9 |
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) { |