summaryrefslogtreecommitdiffstats
path: root/perl-install/network/netconnect.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-08-07 18:33:47 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-08-07 18:33:47 +0000
commit52fe7cd51c25a21b4ebad6703ef6ddf8c2b729bb (patch)
tree70ceb809c486b5a30f88d97c47bc9cd31c89a9b5 /perl-install/network/netconnect.pm
parent5520c3fd8b5986630b205d2271b39304410f7e70 (diff)
downloaddrakx-backup-do-not-use-52fe7cd51c25a21b4ebad6703ef6ddf8c2b729bb.tar
drakx-backup-do-not-use-52fe7cd51c25a21b4ebad6703ef6ddf8c2b729bb.tar.gz
drakx-backup-do-not-use-52fe7cd51c25a21b4ebad6703ef6ddf8c2b729bb.tar.bz2
drakx-backup-do-not-use-52fe7cd51c25a21b4ebad6703ef6ddf8c2b729bb.tar.xz
drakx-backup-do-not-use-52fe7cd51c25a21b4ebad6703ef6ddf8c2b729bb.zip
(get_profiles): get rid of "glob", clean it up
Diffstat (limited to 'perl-install/network/netconnect.pm')
-rw-r--r--perl-install/network/netconnect.pm9
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 {