diff options
| author | Olivier Blin <oblin@mandriva.com> | 2008-02-29 01:13:53 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.com> | 2008-02-29 01:13:53 +0000 |
| commit | e0bd3c72ce8402aa9022aeea62c09f924ff8450c (patch) | |
| tree | 1d7619cd152c5d8a628d09bf17fde45af056bcb5 /lib/network/connection/wireless.pm | |
| parent | 43e0b62b0c1d31d306125483c335a99e617a394f (diff) | |
| download | drakx-net-e0bd3c72ce8402aa9022aeea62c09f924ff8450c.tar drakx-net-e0bd3c72ce8402aa9022aeea62c09f924ff8450c.tar.gz drakx-net-e0bd3c72ce8402aa9022aeea62c09f924ff8450c.tar.bz2 drakx-net-e0bd3c72ce8402aa9022aeea62c09f924ff8450c.tar.xz drakx-net-e0bd3c72ce8402aa9022aeea62c09f924ff8450c.zip | |
use my
Diffstat (limited to 'lib/network/connection/wireless.pm')
| -rw-r--r-- | lib/network/connection/wireless.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/network/connection/wireless.pm b/lib/network/connection/wireless.pm index 7106c41..dc24756 100644 --- a/lib/network/connection/wireless.pm +++ b/lib/network/connection/wireless.pm @@ -880,11 +880,11 @@ sub wpa_supplicant_load_eap_settings { $network = shift; $quoted_essid = qq("$network->{essid}"); $conf = wpa_supplicant_read_conf(); - foreach $old_net (@$conf) { + foreach my $old_net (@$conf) { if ($old_net->{ssid} eq $network->{essid} || $old_net->{ssid} eq $quoted_essid) { $network->{eapextra} = ''; - foreach $myone (keys %$myeap_vars) { + foreach my $myone (keys %$myeap_vars) { next if $myone eq 'ssid'; $ui_var = join('_', "eap", $myone); if (defined $old_net->{$myone}) { @@ -944,7 +944,7 @@ sub wpa_supplicant_add_eap_network { ssid => qq("$ui_input->{essid}"), }; #Sets the value - foreach $myone (keys %$myeap_vars) { + foreach my $myone (keys %$myeap_vars) { $mykey = join('_', "eap", $myone); if (!defined $ui_input->{$mykey}) { #Only if it is defined and not empty @@ -962,7 +962,7 @@ sub wpa_supplicant_add_eap_network { #handle eapextra as final overides if (defined $ui_input->{eapextra} && $ui_input->{eapextra} ne "") { #Should split it on what the # sign? - foreach $myone (split('#', $ui_input->{eapextra})) { + foreach my $myone (split('#', $ui_input->{eapextra})) { ($mykey, $myval) = split('=', $myone, 2); $network->{$mykey} = "$myval"; } |