diff options
| author | Olivier Blin <oblin@mandriva.org> | 2005-08-04 15:46:00 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2005-08-04 15:46:00 +0000 |
| commit | b671f4d3a564926757b7793cce2236e4796e418e (patch) | |
| tree | 5c0d2c2a652af2bac3aa5afb88624b252d04badc | |
| parent | cafadbb6ee35e3a03f7a1707b5c309b83fea728b (diff) | |
| download | drakx-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.pm | 4 |
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 |