X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/5e6ed189aa20dadbb755b7ce96917a0014aec105..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;