From 843a5639e651c7d4dcb6d251baf8763dbb85db66 Mon Sep 17 00:00:00 2001
From: takezoe <takezoe@users.osdn.me>
Date: Wed, 17 Aug 2011 17:17:23 +0000
Subject: [PATCH] =?utf8?q?BugTrack-wiki/343=20Util::url=5Fencode()?=
 =?utf8?q?=E3=81=AE=E3=82=BB=E3=82=AD=E3=83=A5=E3=83=AA=E3=83=86=E3=82=A3?=
 =?utf8?q?=E5=AF=BE=E5=BF=9C=E4=BF=AE=E6=AD=A3=E3=81=AB=E3=82=88=E3=82=8BI?=
 =?utf8?q?nterWikiName=E3=81=AE=E3=83=90=E3=82=B0=E3=82=92=E4=BF=AE?=
 =?utf8?q?=E6=AD=A3=E3=80=82?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 lib/Wiki/InterWiki.pm | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/lib/Wiki/InterWiki.pm b/lib/Wiki/InterWiki.pm
index d2734ce..0e90ec0 100644
--- a/lib/Wiki/InterWiki.pm
+++ b/lib/Wiki/InterWiki.pm
@@ -162,7 +162,7 @@ sub exists_interwiki {
 			if ($enc ne q{}) {
 				&Jcode::convert(\$param, $enc);
 			}
-			$self->{g_url} = $keyword->{url}.Util::url_encode($param);
+			$self->{g_url} = $keyword->{url}._url_encode($param);
 			return 1;
 		}
 
@@ -175,11 +175,19 @@ sub exists_interwiki {
 			if ($enc ne q{}) {
 				&Jcode::convert(\$param, $enc);
 			}
-			$self->{g_url} = $keyword->{url}.Util::url_encode($param);
+			$self->{g_url} = $keyword->{url}._url_encode($param);
 			return 1;
 		}
 	}
 	return 0;
 }
 
+sub _url_encode {
+	my $retstr = shift;
+	$retstr =~ s/([^ 0-9A-Za-z])/sprintf("%%%.2X", ord($1))/eg;
+	$retstr =~ tr/ /+/;
+	return $retstr;
+}
+
+
 1;
-- 
2.11.0