aboutsummaryrefslogtreecommitdiffstats
path: root/lib/WWW/FairViewer/Search.pm
diff options
context:
space:
mode:
authortrizen <trizen@protonmail.com>2020-09-27 09:56:51 +0300
committerJesús <heckyel@hyperbola.info>2020-09-28 22:24:12 -0500
commit256be95193598233bd2abd18d80499c476f61fbf (patch)
tree9635e6d38a11e870c2d1de3ed878ce9e7b8e2350 /lib/WWW/FairViewer/Search.pm
parent27774c9579fad5b7595c3f936597307feadaef9d (diff)
downloadfair-viewer-256be95193598233bd2abd18d80499c476f61fbf.tar.lz
fair-viewer-256be95193598233bd2abd18d80499c476f61fbf.tar.xz
fair-viewer-256be95193598233bd2abd18d80499c476f61fbf.zip
quotemeta() the filename of the cookie file when passing it to `hypervideo`.
This now allows the filename to contain shell metacharacters. Signed-off-by: Jesús <heckyel@hyperbola.info>
Diffstat (limited to 'lib/WWW/FairViewer/Search.pm')
-rw-r--r--lib/WWW/FairViewer/Search.pm6
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);