diff options
Diffstat (limited to 'lib/VNDBUtil.pm')
-rw-r--r-- | lib/VNDBUtil.pm | 12 |
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; |