From 4a3daf884119a57cd5c8bb4acda2a2c502a372ae Mon Sep 17 00:00:00 2001
From: Yorhel <git@yorhel.nl>
Date: Mon, 13 Jul 2020 11:06:42 +0200
Subject: Multi::API: Fix harmless Perl warning for entries without image

---
 lib/Multi/API.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lib/Multi/API.pm')

diff --git a/lib/Multi/API.pm b/lib/Multi/API.pm
index 7e40e748..ac496949 100644
--- a/lib/Multi/API.pm
+++ b/lib/Multi/API.pm
@@ -375,10 +375,11 @@ sub splitarray {
 sub image_flagging {
   my($image, $obj) = @_;
   my $flag = {
-    votecount    => 1*delete $obj->{c_votecount},
+    votecount    => delete $obj->{c_votecount},
     sexual_avg   => delete $obj->{c_sexual_avg},
     violence_avg => delete $obj->{c_violence_avg},
   };
+  $flag->{votecount}    *= 1 if defined $flag->{votecount};
   $flag->{sexual_avg}   *= 1 if defined $flag->{sexual_avg};
   $flag->{violence_avg} *= 1 if defined $flag->{violence_avg};
   $image ? $flag : undef;
-- 
cgit v1.2.3