X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FFCGIFixes.pm;h=62f4a934e25a65ad29637e250cf4b0656c1cdb3a;hb=08e48f66590f580cbe2c8e3df76883d88b4c0fef;hp=47393aad656129b6769c7440b76a2d981717113f;hpb=6cf3f7762efd40bee49a2b8f11bb4ab6915d9071;p=kivitendo-erp.git diff --git a/SL/FCGIFixes.pm b/SL/FCGIFixes.pm index 47393aad6..62f4a934e 100644 --- a/SL/FCGIFixes.pm +++ b/SL/FCGIFixes.pm @@ -10,7 +10,7 @@ use version; # setting STDOUT to ":utf8" with "binmode". Also FCGI starting with # 0.69 implements proper handling for UTF-8 flagged strings -- namely # by downgrading them into bytes. The combination of the two causes -# Lx-Office's way of handling strings to go belly up (storing +# kivitendo's way of handling strings to go belly up (storing # everything in Perl's internal encoding and using Perl's I/O layer # for automatic conversion on output). # @@ -34,7 +34,7 @@ sub fix_print_and_internal_encoding_after_0_68 { *FCGI::Stream::PRINT = sub { if (!$::locale || !$::locale->raw_io_active) { my $self = shift; - my @vals = map { $encoder->encode($_, Encode::FB_CROAK|Encode::LEAVE_SRC) } @_; + my @vals = map { $encoder->encode("$_", Encode::FB_CROAK|Encode::LEAVE_SRC) } @_; @_ = ($self, @vals); }