sub _init_escaped_strings_map {
my $self = shift;
- $self->{escaped_strings_map} =
- ('ä' => 'ä',
- 'ö' => 'ö',
- 'ü' => 'ü',
- 'Ä' => 'Ä',
- 'Ö' => 'Ö',
- 'Ü' => 'Ü',
- 'ß' => 'ß',
- '>' => '>',
+ $self->{escaped_strings_map} = {
+ 'ä' => 'ä',
+ 'ö' => 'ö',
+ 'ü' => 'ü',
+ 'Ä' => 'Ä',
+ 'Ö' => 'Ö',
+ 'Ü' => 'Ü',
+ 'ß' => 'ß',
+ '>' => '>',
'<' => '<',
- '"' => '"');
+ '"' => '"',
+ };
my $iconv = $main::locale->{iconv_iso8859};
my $self = shift;
my $text = shift;
- foreach my $key (keys %{ $self->{escaped_strigns_map} }) {
+ foreach my $key (keys %{ $self->{escaped_strings_map} }) {
$text =~ s/\Q$key\E/$self->{escaped_strings_map}->{$key}/g;
}