fix some warning

diff --git a/src/newslash_web/lib/Newslash/Plugin/NewslashHelpers.pm b/src/newslash_web/lib/Newslash/Plugin/NewslashHelpers.pm
index fce0098..be93931 100644 (file)
--- a/src/newslash_web/lib/Newslash/Plugin/NewslashHelpers.pm
+++ b/src/newslash_web/lib/Newslash/Plugin/NewslashHelpers.pm
@@ -236,7 +236,7 @@ sub _extract_description {
 
     # split to paragraphs
     my @paragraphs = split(/([。.])/, $text);
-    my $result;
+    my $result = "";
     my $length = 0;
 
     while (@paragraphs) {

diff --git a/src/newslash_web/lib/Newslash/Web/Controller/API/Timeline.pm b/src/newslash_web/lib/Newslash/Web/Controller/API/Timeline.pm
index 700dddb..e87122a 100644 (file)
--- a/src/newslash_web/lib/Newslash/Web/Controller/API/Timeline.pm
+++ b/src/newslash_web/lib/Newslash/Web/Controller/API/Timeline.pm
@@ -90,7 +90,7 @@ sub _score_to_heatmap_color {
         my $color = $last_color = $k[0];
         my $threshold = $i->{$color};
 
-        if ($item->{popularity} > $threshold) {
+        if (defined $item->{popularity} && $item->{popularity} > $threshold) {
             return $color;
         }
     }