We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
2 parents 0e0252b + 13dbf46 commit 0b0cd37Copy full SHA for 0b0cd37
gitweb/gitweb.perl
@@ -20,6 +20,10 @@
20
use Time::HiRes qw(gettimeofday tv_interval);
21
binmode STDOUT, ':utf8';
22
23
+if (!defined($CGI::VERSION) || $CGI::VERSION < 4.08) {
24
+ eval 'sub CGI::multi_param { CGI::param(@_) }'
25
+}
26
+
27
our $t0 = [ gettimeofday() ];
28
our $number_of_git_cmds = 0;
29
@@ -871,7 +875,7 @@ sub evaluate_query_params {
871
875
872
876
while (my ($name, $symbol) = each %cgi_param_mapping) {
873
877
if ($symbol eq 'opt') {
874
- $input_params{$name} = [ map { decode_utf8($_) } $cgi->param($symbol) ];
878
+ $input_params{$name} = [ map { decode_utf8($_) } $cgi->multi_param($symbol) ];
879
} else {
880
$input_params{$name} = decode_utf8($cgi->param($symbol));
881
}
0 commit comments