From: Frédéric Buclin <LpSolit@gmail.com>
Date: Mon, 21 Jan 2013 12:29:10 +0000 (+0100)
Subject: Bug 771100: Attaching a file to a bug with Perl 5.16 fails
X-Git-Tag: bugzilla-4.0.10~5
X-Git-Url: http://git.ipfire.org/gitweb/index.cgi?a=commitdiff_plain;h=b9b94d40517ea4bb07343503c00dfdadd939b598;p=thirdparty%2Fbugzilla.git

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 b07e356866..e52609430d 100644
--- 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;
 }