From 79b072964b5f9583d0f0af8e774d0c0ec6cd12c5 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Mon, 3 Mar 2003 14:25:23 +0000
Subject: simplified unquotify.

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

(limited to 'perl-install/network/tools.pm')

diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index 1d96fc839..b0d9d1a9b 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -36,8 +36,7 @@ sub write_secret_backend {
 
 sub unquotify {
     my ($word) = @_;
-    my ($a, $b, $c) = $$word =~ /"(.*)"|'(.*)'|(.*)/;
-    $$word = $a || $b || $c;
+    $$word =~ s/^(['"]?)(.*)\1$/$2/;
 }
 
 sub read_secret_backend {
-- 
cgit v1.2.1