File-Controller: Warnungen wegen undefinierter Werte vermeiden

Warnungen traten bei t/file/filesystem.t auf.

diff --git a/SL/Controller/File.pm b/SL/Controller/File.pm
index 875478f..8d2e9f2 100644 (file)
--- 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;