From 17819f62a35b01bd3a1cc7986c1e51542b205b51 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Mon, 26 Jul 2004 03:29:07 +0000
Subject: let perl-MDK-Common do the quoting

---
 perl-install/network/tools.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index bf1508a4b..f9957577e 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -200,8 +200,7 @@ sub convert_wep_key_for_iwconfig {
     #- else consider the key as hexadecimal, do not strip dashes 
     #- always quote the key as string
     my ($key) = @_;
-    unquotify \$key;
-    member(length($key), (5, 13)) ? qq("s:$key") : qq("$key");
+    member(length($key), (5, 13)) ? "s:$key" : "$key";
 }
 
 sub get_wep_key_from_iwconfig {
-- 
cgit v1.2.1