From: Sven Schöling <s.schoeling@linet-services.de>
Date: Fri, 1 Apr 2011 13:10:37 +0000 (+0200)
Subject: Iconv get_converter in interne Funktion umbenannt, und den einzigen externen Aufruf... 
X-Git-Tag: release-2.6.3~33^2~14
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=cd01768df066d55624b63576d1cb7fd122ab4758;p=kivitendo-erp.git

Iconv get_converter in interne Funktion umbenannt, und den einzigen externen Aufruf durch ein SL::Iconv->new ersetzt.

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 af5037acc..a583af8a5 100644
--- 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 c2f2247ea..d6ea0cbdf 100644
--- 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);
 }