Revision cd01768d
Von Sven Schöling vor mehr als 13 Jahren hinzugefügt
SL/DBUpgrade2.pm | ||
---|---|---|
245 | 245 | |
246 | 246 |
$db_charset ||= Common::DEFAULT_CHARSET; |
247 | 247 | |
248 |
my $iconv = SL::Iconv::get_converter($file_charset, $db_charset);
|
|
248 |
my $iconv = SL::Iconv->new($file_charset, $db_charset);
|
|
249 | 249 | |
250 | 250 |
$dbh->begin_work(); |
251 | 251 |
SL/Iconv.pm | ||
---|---|---|
19 | 19 |
return $self; |
20 | 20 |
} |
21 | 21 | |
22 |
sub get_converter { |
|
22 |
sub _get_converter {
|
|
23 | 23 |
my ($from_charset, $to_charset) = @_; |
24 | 24 | |
25 | 25 |
my $index = join $SUBSCRIPT_SEPARATOR, $from_charset, $to_charset; |
... | ... | |
36 | 36 |
$from_charset ||= Common::DEFAULT_CHARSET; |
37 | 37 |
$to_charset ||= Common::DEFAULT_CHARSET; |
38 | 38 | |
39 |
my $converter = get_converter($from_charset, $to_charset); |
|
39 |
my $converter = _get_converter($from_charset, $to_charset);
|
|
40 | 40 |
return $converter->convert($text); |
41 | 41 |
} |
42 | 42 |
Auch abrufbar als: Unified diff
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.