]> bicyclesonthemoon.info Git - botm/common-perl/commitdiff
bugfix new merge v1.0.23
authorb <rowerynaksiezycu@gmail.com>
Mon, 9 Oct 2023 22:13:44 +0000 (22:13 +0000)
committerb <rowerynaksiezycu@gmail.com>
Mon, 9 Oct 2023 22:13:44 +0000 (22:13 +0000)
botm_common.pm

index 1de622e5a1e9032d2fd61aae7ad46548edf5c5e6..528b2ff556ef4ea80561712180b49b01466e0d23 100644 (file)
@@ -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