Revision 5e043871
Von Sven Schöling vor mehr als 14 Jahren hinzugefügt
SL/Form.pm | ||
---|---|---|
1438 | 1438 |
close(FH); |
1439 | 1439 |
} |
1440 | 1440 |
|
1441 |
if ($self->{tmpfile}) { |
|
1441 |
if ($self->{tmpfile} && ! $::keep_temp_files) {
|
|
1442 | 1442 |
$self->{tmpfile} =~ s|.*/||g; |
1443 | 1443 |
# strip extension |
1444 | 1444 |
$self->{tmpfile} =~ s/\.\w+$//g; |
Auch abrufbar als: Unified diff
Debugflag: $::keep_temp_files