From d3157a39407cc1959cff7bbd001ea9e155ae69ba Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 15 Nov 2005 16:47:26 +0000
Subject: adapt to new cat_() only accepting files, ie not doing popen anymore

---
 perl-install/printer/printerdrake.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'perl-install/printer/printerdrake.pm')

diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm
index 648e12498..ac490695a 100644
--- a/perl-install/printer/printerdrake.pm
+++ b/perl-install/printer/printerdrake.pm
@@ -4241,8 +4241,7 @@ sub start_network {
 
 sub network_configured() {
     # Do configured networks (/etc/sysconfig/network-scripts/ifcfg*) exist?
-    my @netscripts =
-	cat_("ls -1 $::prefix/etc/sysconfig/network-scripts/ |");
+    my @netscripts = all("$::prefix/etc/sysconfig/network-scripts");
     my $netconfigured = 0;
     (/ifcfg-/ and !/(ifcfg-lo|:|rpmsave|rpmorig|rpmnew)/ and
       !/(~|\.bak)$/ and $netconfigured = 1) foreach @netscripts;
-- 
cgit v1.2.1