Revision f5b999c9
Von Moritz Bunkus vor etwa 12 Jahren hinzugefügt
| SL/Common.pm | ||
|---|---|---|
|
|
||
|
my ($ext) = $form->{tmpfile} =~ /(\.[^.]+)$/;
|
||
|
my $current_file = join('/', $form->{tmpdir}, $form->{tmpfile});
|
||
|
my $current_filesize = stat($current_file)->size;
|
||
|
my $current_filesize = -f $current_file ? stat($current_file)->size : 0;
|
||
|
|
||
|
if ($current_filesize == $filesize) {
|
||
|
$::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.