summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-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