Ergebnis von File::stat nur dereferenzieren, wenn Datei existiert

Existiert sie nicht, gibt die Funktion nun mal undef zurück.

diff --git a/SL/Common.pm b/SL/Common.pm
index 87465c071a37e500af89e0c6a5891e406454b246..c0be296ce04b2adf0aad26e3b76e437d612d6da7 100644 (file)
--- a/SL/Common.pm
+++ b/SL/Common.pm
@@ -632,7 +632,7 @@ sub copy_file_to_webdav_folder {
 
   my ($ext)            = $form->{tmpfile} =~ /(\.[^.]+)$/;
   my $current_file     = join('/', $form->{tmpdir}, $form->{tmpfile});
 
   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();
 
   if ($current_filesize == $filesize) {
     $::lxdebug->leave_sub();