X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/dc8f62cf5df4a7f8473e7d76fdd98846cea5721f..b7067f51a92af13c631333f093df50e97a1caed3:/SL/Form.pm diff --git a/SL/Form.pm b/SL/Form.pm index c578b2947..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;