diff options
author | Yorhel <git@yorhel.nl> | 2011-01-27 10:43:19 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2011-01-27 10:43:19 +0100 |
commit | 78f364130abe51a4baeeef1e20a7292c3a1a28dd (patch) | |
tree | c839cca89c576b3cfde2faacecddd617b60dd335 /lib/VNDBUtil.pm | |
parent | 08d3dffe2dc6b955f2e10629079d5ae5c32f7183 (diff) |
TUWF: Use the uri_escape() provided by TUWF
Diffstat (limited to 'lib/VNDBUtil.pm')
-rw-r--r-- | lib/VNDBUtil.pm | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/lib/VNDBUtil.pm b/lib/VNDBUtil.pm index f5650d6d..6285e77a 100644 --- a/lib/VNDBUtil.pm +++ b/lib/VNDBUtil.pm @@ -8,7 +8,7 @@ use Exporter 'import'; use Encode 'encode_utf8'; use Unicode::Normalize 'NFKD'; -our @EXPORT = qw|shorten bb2html gtintype normalize normalize_titles normalize_query imgsize uri_escape|; +our @EXPORT = qw|shorten bb2html gtintype normalize normalize_titles normalize_query imgsize|; sub shorten { @@ -242,14 +242,5 @@ 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; |