don't decode filenames

diff --git a/site/cgi-bin/modules/BSE/CGI.pm b/site/cgi-bin/modules/BSE/CGI.pm
index 312f6aa3f9bfd33233a90caaa77476c93c97bafe..e4327f833a416c87601061095e3b17c691bf23ea 100644 (file)
--- a/site/cgi-bin/modules/BSE/CGI.pm
+++ b/site/cgi-bin/modules/BSE/CGI.pm
@@ -2,7 +2,7 @@ package BSE::CGI;
 use strict;
 use Encode;
 
-our $VERSION = "1.000";
+our $VERSION = "1.001";
 
 sub new {
   my ($class, $q, $charset) = @_;
@@ -22,7 +22,8 @@ sub param {
   my @result = $self->{cgi}->param(@args)
     or return;
   for my $value (@result) {
-    $value = decode($self->{charset}, $value);
+    $value = decode($self->{charset}, $value)
+      unless ref $value;
   }
 
   return wantarray && @result > 1 ? @result : $result[0];