X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/1b2ef48beb83019b3f4ad6cca23c83b2d2d8cc99..6a688e64ee450743a87b12561e45a3b7c0861184:/SL/ClientJS.pm diff --git a/SL/ClientJS.pm b/SL/ClientJS.pm index d4775b830..c6e22f3d5 100644 --- a/SL/ClientJS.pm +++ b/SL/ClientJS.pm @@ -150,9 +150,8 @@ sub action { } foreach my $idx (0..$num_args - 1) { - # Force flattening from SL::Presenter::EscapedText and trim leading whitespace for scalars + # Force flattening from SL::Presenter::EscapedText. $args[$idx] = "" . $args[$idx] if ref($args[$idx]) eq 'SL::Presenter::EscapedText'; - $args[$idx] =~ s/^\s+// if !ref($args[$idx]); } push @{ $self->_actions }, [ $method, @args ];