Bug 771100: Unable to attach a file to a bug with perl 5.16

r=dkl a=LpSolit

diff --git a/Bugzilla/CGI.pm b/Bugzilla/CGI.pm
index febbff6182fb30e16fe0f205b87eedbd34d9799d..09907fb552fcc39f8c791c1850bf6c23c35be415 100644 (file)
--- a/Bugzilla/CGI.pm
+++ b/Bugzilla/CGI.pm
@@ -350,7 +350,7 @@ sub param {
 sub _fix_utf8 {
     my $input = shift;
     # The is_utf8 is here in case CGI gets smart about utf8 someday.
-    utf8::decode($input) if defined $input && !utf8::is_utf8($input);
+    utf8::decode($input) if defined $input && !ref $input && !utf8::is_utf8($input);
     return $input;
 }