X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/9bd3030a376850c427c102c6e0c54f19bd19332e..b7067f51a92af13c631333f093df50e97a1caed3:/SL/Form.pm diff --git a/SL/Form.pm b/SL/Form.pm index a0c8ce176..715385154 100644 --- a/SL/Form.pm +++ b/SL/Form.pm @@ -636,7 +636,6 @@ sub header { $jsscript = qq| - @@ -1438,7 +1437,7 @@ sub cleanup { close(FH); } - if ($self->{tmpfile}) { + if ($self->{tmpfile} && ! $::keep_temp_files) { $self->{tmpfile} =~ s|.*/||g; # strip extension $self->{tmpfile} =~ s/\.\w+$//g;