Iconv get_converter in interne Funktion umbenannt, und den einzigen externen Aufruf...

Erklärung: cbd1249e5c245ee605c32c6cdbdc1e26f92643d0 hat die Handle im
Objektzugriff von SL::Iconv gecacht, hat dabei aber das Verhalten im
Klassenzugriff auf get_converter leicht geändert. Dadurch bekommen
Datenbankupgradescripte kein SL::Iconv Objekt mehr sondern ein Text::Iconv, was
sich minimal anders verhält. Um potentielle Bugs dabei zu vermeiden wird das
hiermit abgeschafft.

SL::Iconv::get_converter bitte nicht mehr verwenden, und dafür SL::Iconv->new
benutzen.

diff --git a/SL/DBUpgrade2.pm b/SL/DBUpgrade2.pm
index af5037a..a583af8 100644 (file)
--- a/SL/DBUpgrade2.pm
+++ b/SL/DBUpgrade2.pm
@@ -245,7 +245,7 @@ sub process_perl_script {
 
   $db_charset ||= Common::DEFAULT_CHARSET;
 
-  my $iconv = SL::Iconv::get_converter($file_charset, $db_charset);
+  my $iconv = SL::Iconv->new($file_charset, $db_charset);
 
   $dbh->begin_work();
 

diff --git a/SL/Iconv.pm b/SL/Iconv.pm
index c2f2247..d6ea0cb 100644 (file)
--- a/SL/Iconv.pm
+++ b/SL/Iconv.pm
@@ -19,7 +19,7 @@ sub new {
   return $self;
 }
 
-sub get_converter {
+sub _get_converter {
   my ($from_charset, $to_charset) = @_;
 
   my $index             = join $SUBSCRIPT_SEPARATOR, $from_charset, $to_charset;
@@ -36,7 +36,7 @@ sub convert {
   $from_charset ||= Common::DEFAULT_CHARSET;
   $to_charset   ||= Common::DEFAULT_CHARSET;
 
-  my $converter = get_converter($from_charset, $to_charset);
+  my $converter = _get_converter($from_charset, $to_charset);
   return $converter->convert($text);
 }