Fix for Encode 2.40

gisle · Sep 20, 2010 · 0eedbf1 · 0eedbf1
1 parent d118cc0
commit 0eedbf1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/HTTP/Message.pm b/lib/HTTP/Message.pm
@@ -271,7 +271,7 @@ sub content_charset
 		return "US-ASCII" unless /[\x80-\xFF]/;
 		require Encode;
 		eval {
-		    Encode::decode_utf8($_, Encode::FB_CROAK());
+		    Encode::decode_utf8($_, Encode::FB_CROAK() | Encode::LEAVE_SRC());
 		};
 		return "UTF-8" unless $@;
 		return "ISO-8859-1";