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:
@@ -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;
|
||||
}
|
||||
|
||||
|
||||
Reference in New Issue
Block a user