From: b Date: Mon, 9 Oct 2023 22:13:44 +0000 (+0000) Subject: bugfix new merge X-Git-Tag: v1.0.23 X-Git-Url: http://bicyclesonthemoon.info/git-projects/?a=commitdiff_plain;h=refs%2Ftags%2Fv1.0.23;p=botm%2Fcommon-perl bugfix new merge --- diff --git a/botm_common.pm b/botm_common.pm index 1de622e..528b2ff 100644 --- a/botm_common.pm +++ b/botm_common.pm @@ -25,7 +25,7 @@ use Encode ('encode', 'decode'); use Exporter; -our $VERSION = '1.0.24'; +our $VERSION = '1.0.23'; our @ISA = qw(Exporter); our @EXPORT = (); our @EXPORT_OK = ( @@ -811,7 +811,7 @@ sub merge_url_query { my %final_data; foreach my $query (@querys) { my %data; - if (ref($query) { + if (ref($query)) { %data = %$query; } else { @@ -821,7 +821,7 @@ sub merge_url_query { $final_data{$ind} = $data{$ind}; } } - return url_query_encode(\%data, $encoding); + return url_query_encode(\%final_data, $encoding); } # merge_url() will create a new URL based on