From: b Date: Fri, 29 Sep 2023 17:03:13 +0000 (+0000) Subject: fix URL decoding X-Git-Tag: v1.0.20 X-Git-Url: http://bicyclesonthemoon.info/git-projects/?a=commitdiff_plain;h=6881684b6dcb50d6d9e77584aadf3eaa47dd096c;p=botm%2Fcommon-perl fix URL decoding --- diff --git a/botm_common.pm b/botm_common.pm index 19e4ff8..b818872 100644 --- 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; }