diff options
| -rw-r--r-- | perl-install/network/netconnect.pm | 9 |
1 files changed, 1 insertions, 8 deletions
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 { |