Revision f5b999c9
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
| SL/Common.pm | ||
|---|---|---|
| 632 | 632 |
|
| 633 | 633 |
my ($ext) = $form->{tmpfile} =~ /(\.[^.]+)$/;
|
| 634 | 634 |
my $current_file = join('/', $form->{tmpdir}, $form->{tmpfile});
|
| 635 |
my $current_filesize = stat($current_file)->size;
|
|
| 635 |
my $current_filesize = -f $current_file ? stat($current_file)->size : 0;
|
|
| 636 | 636 |
|
| 637 | 637 |
if ($current_filesize == $filesize) {
|
| 638 | 638 |
$::lxdebug->leave_sub(); |
Auch abrufbar als: Unified diff
Ergebnis von File::stat nur dereferenzieren, wenn Datei existiert
Existiert sie nicht, gibt die Funktion nun mal undef zurück.