From 6a7d9449271bfeeb49c2a2192870ecd2b8f7c86c Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Mon, 13 Feb 2017 11:24:44 +0100
Subject: [PATCH] File-Controller: Warnungen wegen undefinierter Werte
 vermeiden

Warnungen traten bei t/file/filesystem.t auf.
---
 SL/Controller/File.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/SL/Controller/File.pm b/SL/Controller/File.pm
index 875478fb2..8d2e9f2bd 100644
--- a/SL/Controller/File.pm
+++ b/SL/Controller/File.pm
@@ -309,8 +309,8 @@ sub action_download {
 sub check_object_params {
   my ($self) = @_;
 
-  my $id = $::form->{object_id} +0;
-  my $draftid = $::form->{draft_id} +0;
+  my $id = ($::form->{object_id} // 0) * 1;
+  my $draftid = ($::form->{draft_id} // 0) * 1;
   my $gldoc = 0;
   my $type = undef;
 
-- 
2.20.1