summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-08-05 12:58:18 +0000
committerOlivier Blin <oblin@mandriva.org>2005-08-05 12:58:18 +0000
commite16100ad8ca67387943945777c628aedf23f5403 (patch)
tree02e162c9f4cd41ee025eb42ed056715f0e75ee08 /perl-install
parentd2b450a1c1b1f70802edbdf228f207239f6e20ca (diff)
downloaddrakx-e16100ad8ca67387943945777c628aedf23f5403.tar
drakx-e16100ad8ca67387943945777c628aedf23f5403.tar.gz
drakx-e16100ad8ca67387943945777c628aedf23f5403.tar.bz2
drakx-e16100ad8ca67387943945777c628aedf23f5403.tar.xz
drakx-e16100ad8ca67387943945777c628aedf23f5403.zip
better handling for hex keys in wpa_supplicant
Diffstat (limited to 'perl-install')
-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 {