Merge branch 'currency'

[mfinanz.git] / SL / FCGIFixes.pm

diff --git a/SL/FCGIFixes.pm b/SL/FCGIFixes.pm
index ea31ccf56d04055d82ac74748698e34be526e030..f1fa869f1b41f12d22edd0a1928e04a6d422fc79 100644 (file)
--- a/SL/FCGIFixes.pm
+++ b/SL/FCGIFixes.pm
@@ -35,7 +35,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);
     }