diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-08-07 18:33:47 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-08-07 18:33:47 +0000 |
| commit | 52fe7cd51c25a21b4ebad6703ef6ddf8c2b729bb (patch) | |
| tree | 70ceb809c486b5a30f88d97c47bc9cd31c89a9b5 | |
| parent | 5520c3fd8b5986630b205d2271b39304410f7e70 (diff) | |
| download | drakx-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
| -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 { |