From: b <rowerynaksiezycu@gmail.com>
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=refs%2Ftags%2Fv1.0.20;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;
 }