Debugflag: $::keep_temp_files

[kivitendo-erp.git] / SL / Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index c578b2947a1d59f2fbd209ca0474db0e8cddb76f..9417e76c6634a2f210fbdaa114a321ab8d2b0218 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1438,7 +1438,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;