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.