diff options
Diffstat (limited to 'lib/WWW/FairViewer/Search.pm')
-rw-r--r-- | lib/WWW/FairViewer/Search.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/WWW/FairViewer/Search.pm b/lib/WWW/FairViewer/Search.pm index af6005b..6f4e8d0 100644 --- a/lib/WWW/FairViewer/Search.pm +++ b/lib/WWW/FairViewer/Search.pm @@ -167,16 +167,16 @@ sub related_to_videoID { my $viewCount = 0; - if ($info->{viewCountText}{simpleText} =~ /^([\d,]+) views/) { + if (($info->{viewCountText}{simpleText} // '') =~ /^([\d,]+) views/) { $viewCount = ($1 =~ tr/,//dr); } - elsif ($info->{viewCountText}{simpleText} =~ /Recommended for you/i) { + elsif (($info->{viewCountText}{simpleText} // '') =~ /Recommended for you/i) { next; # filter out recommended videos from related videos } my $lengthSeconds = 0; - if ($info->{lengthText}{simpleText} =~ /([\d:]+)/) { + if (($info->{lengthText}{simpleText} // '') =~ /([\d:]+)/) { my $time = $1; my @fields = split(/:/, $time); |