From 17819f62a35b01bd3a1cc7986c1e51542b205b51 Mon Sep 17 00:00:00 2001 From: Olivier Blin 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