From e16100ad8ca67387943945777c628aedf23f5403 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Fri, 5 Aug 2005 12:58:18 +0000
Subject: better handling for hex keys in wpa_supplicant

---
 perl-install/network/wireless.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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