summaryrefslogtreecommitdiffstats
path: root/perl-install/network/wireless.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/network/wireless.pm')
-rw-r--r--perl-install/network/wireless.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/network/wireless.pm b/perl-install/network/wireless.pm
index f509cd949..bdfc9fd55 100644
--- a/perl-install/network/wireless.pm
+++ b/perl-install/network/wireless.pm
@@ -25,7 +25,7 @@ sub get_wep_key_from_iwconfig {
sub convert_key_for_wpa_supplicant {
my ($key) = @_;
- if ($key =~ /^([[:xdigit:]]{4}[\:-])+[[:xdigit:]]{2,}$/) {
+ if ($key =~ /^([[:xdigit:]]{4}[\:-]?)+[[:xdigit:]]{2,}$/) {
$key =~ s/[\:-]//g;
return lc($key);
} else {