summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-08-04 15:46:00 +0000
committerOlivier Blin <oblin@mandriva.org>2005-08-04 15:46:00 +0000
commitb671f4d3a564926757b7793cce2236e4796e418e (patch)
tree5c0d2c2a652af2bac3aa5afb88624b252d04badc
parentcafadbb6ee35e3a03f7a1707b5c309b83fea728b (diff)
downloaddrakx-b671f4d3a564926757b7793cce2236e4796e418e.tar
drakx-b671f4d3a564926757b7793cce2236e4796e418e.tar.gz
drakx-b671f4d3a564926757b7793cce2236e4796e418e.tar.bz2
drakx-b671f4d3a564926757b7793cce2236e4796e418e.tar.xz
drakx-b671f4d3a564926757b7793cce2236e4796e418e.zip
perl_checker fixes
-rw-r--r--perl-install/network/wireless.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/network/wireless.pm b/perl-install/network/wireless.pm
index 460029297..4e11d1124 100644
--- a/perl-install/network/wireless.pm
+++ b/perl-install/network/wireless.pm
@@ -145,7 +145,7 @@ sub wpa_supplicant_write_conf {
my $new_network = find {
my $current = $_;
- any { exists $network->{$_} && $network->{$_} eq $current->{$_} } qw(ssid bssid)
+ any { exists $network->{$_} && $network->{$_} eq $current->{$_} } qw(ssid bssid);
} @conf;
foreach (@{$network->{entries}}) {
@@ -167,7 +167,7 @@ sub wpa_supplicant_write_conf {
}
}
$buf .= "}\n";
- $new_network and @conf = grep { $_ != $new_network } @conf;;
+ $new_network and @conf = grep { $_ != $new_network } @conf;
undef $network;
} else {
#- unrecognized, keep it anyway