Bug 771100: Attaching a file to a bug with Perl 5.16 fails

r=dkl a=LpSolit

diff --git a/Bugzilla/CGI.pm b/Bugzilla/CGI.pm
index b07e35686628ebc4325fc89d539d2fc6932b2bcc..e52609430d11aad81d1e038619e7948d4c9f1d3b 100644 (file)
--- a/Bugzilla/CGI.pm
+++ b/Bugzilla/CGI.pm
@@ -353,7 +353,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;
 }