Write VNDBUtil::uri_escape() and removed dependency on URI::Escape

Its functionality is too simpel to require it as a special dependency,
seriously.

1 files changed, 11 insertions, 1 deletions

diff --git a/lib/VNDBUtil.pm b/lib/VNDBUtil.pm
index b0213d07..36038d47 100644
--- a/lib/VNDBUtil.pm
+++ b/lib/VNDBUtil.pm
@@ -5,9 +5,10 @@ package VNDBUtil;
 use strict;
 use warnings;
 use Exporter 'import';
+use Encode 'encode_utf8';
 use Unicode::Normalize 'NFKD';
 
-our @EXPORT = qw|shorten bb2html gtintype normalize normalize_titles normalize_query imgsize|;
+our @EXPORT = qw|shorten bb2html gtintype normalize normalize_titles normalize_query imgsize uri_escape|;
 
 
 sub shorten {
@@ -240,5 +241,14 @@ sub imgsize {
 }
 
 
+# Same as URI::Escape::uri_escape_utf8(), only simpler and doesn't add extra
+# dependencies
+sub uri_escape {
+  local $_ = encode_utf8 shift;
+  s/([^A-Za-z0-9._~-])/sprintf '%%%02X', ord $1/eg;
+  return $_;
+}
+
+
 1;