Text bei Iconv-Konvertierung nach UTF-8 in Perls internes Encoding umwandeln

Und das auch bei Objekt-Aufrufsyntax:

  $text = SL::Iconv::convert('ISO-8859-15', 'UTF-8', $some_other_text);

diff --git a/SL/Iconv.pm b/SL/Iconv.pm
index d6ea0cbdf1202e2d6ef3fdb2be4b9d7a15513250..19b8ca169839cb8eb90fd8b3f0c6974b61264f48 100644 (file)
--- a/SL/Iconv.pm
+++ b/SL/Iconv.pm
@@ -37,7 +37,10 @@ sub convert {
   $to_charset   ||= Common::DEFAULT_CHARSET;
 
   my $converter = _get_converter($from_charset, $to_charset);
   $to_charset   ||= Common::DEFAULT_CHARSET;
 
   my $converter = _get_converter($from_charset, $to_charset);

-  return $converter->convert($text);
+  $text         = $converter->convert($text);
+  $text         = decode("utf-8-strict", $text) if ($to_charset =~ m/^utf-?8$/i) && !Encode::is_utf8($text);
+
+  return $text;

 }
 
 sub _convert {
 }
 
 sub _convert {