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

r=dkl a=LpSolit


git-svn-id: svn://10.0.0.236/trunk@264143 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
mkanat%bugzilla.org
2012-08-15 19:30:45 +00:00
parent 268c49385c
commit e26a6812bd
2 changed files with 2 additions and 2 deletions

View File

@@ -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;
}