X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/6d5743899631690b4a82190a977a075c66eb4a0d..6146d71465314a4196eaa0852116aae3729f9c43:/SL/ClientJS.pm diff --git a/SL/ClientJS.pm b/SL/ClientJS.pm index d4775b830..c12b9ea24 100644 --- a/SL/ClientJS.pm +++ b/SL/ClientJS.pm @@ -152,7 +152,6 @@ sub action { foreach my $idx (0..$num_args - 1) { # Force flattening from SL::Presenter::EscapedText and trim leading whitespace for scalars $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 ];