From 52fe7cd51c25a21b4ebad6703ef6ddf8c2b729bb Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 7 Aug 2002 18:33:47 +0000 Subject: (get_profiles): get rid of "glob", clean it up --- perl-install/network/netconnect.pm | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) (limited to 'perl-install/network/netconnect.pm') diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 61eefd299..ad7ee7082 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -500,14 +500,7 @@ sub add_profile { } sub get_profiles { - my @a; - my $i = 0; - foreach (glob("/etc/sysconfig/network-scripts/drakconnect_conf.*")) { - s/.*\.//; - $a[$i] = $_; - $i++; - } - @a; + map { if_(/drakconnect_conf\.(.*)/, $1) } all("$::prefix/etc/sysconfig/network-scripts"); } sub load_conf { -- cgit v1.2.1