From 8f7cb6dae22fc5adc6eb8c57605e16f97cfee179 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 6 Oct 1999 09:12:56 +0000
Subject: no_comment

---
 perl-install/modules.pm | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

(limited to 'perl-install/modules.pm')

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) {
-- 
cgit v1.2.1