summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2008-02-29 01:13:53 +0000
committerOlivier Blin <oblin@mandriva.com>2008-02-29 01:13:53 +0000
commite0bd3c72ce8402aa9022aeea62c09f924ff8450c (patch)
tree1d7619cd152c5d8a628d09bf17fde45af056bcb5
parent43e0b62b0c1d31d306125483c335a99e617a394f (diff)
downloaddrakx-net-e0bd3c72ce8402aa9022aeea62c09f924ff8450c.tar
drakx-net-e0bd3c72ce8402aa9022aeea62c09f924ff8450c.tar.gz
drakx-net-e0bd3c72ce8402aa9022aeea62c09f924ff8450c.tar.bz2
drakx-net-e0bd3c72ce8402aa9022aeea62c09f924ff8450c.tar.xz
drakx-net-e0bd3c72ce8402aa9022aeea62c09f924ff8450c.zip
use my
-rw-r--r--lib/network/connection/wireless.pm8
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";
}