X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FLocale.pm;h=4fde61654352b5027afef659713c26ef82c2b8b0;hb=0e0ff15052f7cb7ed1a2b04235a8a217da97a183;hp=7f8b6c691bf8021b244cb038f210f33dc75f68f7;hpb=e500d8b200c003f753584a8c0bfdc088571848e9;p=kivitendo-erp.git diff --git a/SL/Locale.pm b/SL/Locale.pm index 7f8b6c691..4fde61654 100644 --- a/SL/Locale.pm +++ b/SL/Locale.pm @@ -213,7 +213,7 @@ sub text { my $self = shift; my $text = shift; - if (exists $self->{texts}->{$text}) { + if ($self->{texts}->{$text}) { $text = $self->{iconv}->convert($self->{texts}->{$text}); } else { $text = $self->{iconv_english}->convert($text); @@ -462,14 +462,22 @@ sub remap_special_chars { return $self->quote_special_chars($dst_format, $self->quote_special_chars("${src_format}-reverse", shift)); } +sub raw_io_active { + my $self = shift; + + return !!$self->{raw_io_active}; +} + sub with_raw_io { my $self = shift; my $fh = shift; my $code = shift; + $self->{raw_io_active} = 1; binmode $fh, ":raw"; $code->(); binmode $fh, ":utf8" if $self->is_utf8; + $self->{raw_io_active} = 0; } 1;