From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Wed, 3 Jul 2013 07:37:13 +0000 (+0200)
Subject: Ergebnis von File::stat nur dereferenzieren, wenn Datei existiert
X-Git-Tag: release-3.1.0beta1~225
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=f5b999c9d46a8ba34314621db141e37c48a06e81;p=kivitendo-erp.git

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 87465c071..c0be296ce 100644
--- 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 $current_filesize = stat($current_file)->size;
+  my $current_filesize = -f $current_file ? stat($current_file)->size : 0;
 
   if ($current_filesize == $filesize) {
     $::lxdebug->leave_sub();