Model::Stories: fix warnings

diff --git a/src/newslash_web/lib/Newslash/Model/Stories.pm b/src/newslash_web/lib/Newslash/Model/Stories.pm
index 8147407..ad3fa21 100644 (file)
--- a/src/newslash_web/lib/Newslash/Model/Stories.pm
+++ b/src/newslash_web/lib/Newslash/Model/Stories.pm
@@ -94,7 +94,9 @@ EOSQL
 
   for my $story (@$rs) {
       my $stoid = $story->{stoid};
-      $story->{topics} = $topics->{$stoid};
+      if ($stoid) {
+          $story->{topics} = $topics->{$stoid};
+      }
       $self->_generalize($story);
   }