use multi_param() if available to avoid the new warning

diff --git a/site/cgi-bin/modules/BSE/CGI.pm b/site/cgi-bin/modules/BSE/CGI.pm
index e4327f833a416c87601061095e3b17c691bf23ea..ffc01ab159c9cc2f492bc4e202d284fb2b8d79fd 100644 (file)
--- a/site/cgi-bin/modules/BSE/CGI.pm
+++ b/site/cgi-bin/modules/BSE/CGI.pm
@@ -2,15 +2,17 @@ package BSE::CGI;
 use strict;
 use Encode;
 
-our $VERSION = "1.001";
+our $VERSION = "1.002";
 
 sub new {
   my ($class, $q, $charset) = @_;
 
+  my $param = $q->can("multi_param") ? "multi_param" : "param";
   my $self = bless
     {
      cgi => $q,
      charset => $charset,
+     param => $param,
     }, $class;
 
   return $self;
@@ -19,7 +21,8 @@ sub new {
 sub param {
   my ($self, @args) = @_;
 
-  my @result = $self->{cgi}->param(@args)
+  my $param = $self->{param};
+  my @result = $self->{cgi}->$param(@args)
     or return;
   for my $value (@result) {
     $value = decode($self->{charset}, $value)
@@ -29,6 +32,20 @@ sub param {
   return wantarray && @result > 1 ? @result : $result[0];
 }
 
+sub multi_param {
+  my ($self, @args) = @_;
+
+  my $param = $self->{param};
+  my @result = $self->{cgi}->$param(@args)
+    or return;
+  for my $value (@result) {
+    $value = decode($self->{charset}, $value)
+      unless ref $value;
+  }
+
+  return wantarray ? @result : $result[0];
+}
+
 sub upload {
   my ($self, @args) = @_;