fix URL decoding

diff --git a/botm_common.pm b/botm_common.pm
index 19e4ff8ffc6584f021d5963be5391615b0555325..b818872b63f5c104464105988c306a1916f8b83d 100644 (file)
--- a/botm_common.pm
+++ b/botm_common.pm
@@ -25,7 +25,7 @@ use Encode ('encode', 'decode');
 
 use Exporter;
 
-our $VERSION     = '1.0.19';
+our $VERSION     = '1.0.20';
 our @ISA         = qw(Exporter);
 our @EXPORT      = ();
 our @EXPORT_OK   = (
@@ -591,7 +591,7 @@ sub url_decode {
        if ($encoding eq '') {
                $encoding = 'utf8';
        }
-       $t =~ s/((%[0-9A-Fa-f]{2})+)/url_decode_xch($1)/egs;
+       $t =~ s/((%[0-9A-Fa-f]{2})+)/url_decode_xch($1, $encoding)/egs;
        return $t;
 }