From b671f4d3a564926757b7793cce2236e4796e418e Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Thu, 4 Aug 2005 15:46:00 +0000
Subject: perl_checker fixes

---
 perl-install/network/wireless.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install')

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
-- 
cgit v1.2.1