X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FUTF8.pm;h=230ab79136fcc92f4c4bda9cf8c393a7aeb95fa6;hb=1a1fa6f0af2be9d4076d9aad5f5a84c5fb3d9a8a;hp=0c4d33619dce695ab2de3b0a6c6bd1eba97fba94;hpb=55e320bcc73b6ef5c40b70d02dc69049a7e4c1e8;p=debbugs.git diff --git a/Debbugs/UTF8.pm b/Debbugs/UTF8.pm index 0c4d336..230ab79 100644 --- a/Debbugs/UTF8.pm +++ b/Debbugs/UTF8.pm @@ -28,7 +28,7 @@ charsets to UTF8. use warnings; use strict; use vars qw($VERSION $DEBUG %EXPORT_TAGS @EXPORT_OK @EXPORT); -use base qw(Exporter); +use Exporter qw(import); BEGIN{ $VERSION = 1.00; @@ -179,12 +179,9 @@ sub convert_to_utf8 { # if there's an à (0xC3), it's probably something # horrible, and we shouldn't try to convert it. if (defined $call_back_data and $call_back_data !~ /\x{C3}/) { - # this warning produces far too much useless output; elminating it - # warn "failed to convert to utf8 (charset: $charset, data: $data), but succeeded with ISO8859-1: ".encode_utf8($call_back_data); return $call_back_data; } } - warn "failed to convert to utf8 (charset: $charset, data: $data)"; # Fallback to encode, which will probably also fail. return __fallback_convert_to_utf8($data,$charset); }