Multi::API: Fix harmless Perl warning for entries without image

1 files changed, 2 insertions, 1 deletions

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;