summaryrefslogtreecommitdiff
path: root/lib/VNDB
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2011-02-04 12:00:59 +0100
committerYorhel <git@yorhel.nl>2011-02-04 12:00:59 +0100
commitf22fc3511bacf37946f681dbcd8c40846feae6c6 (patch)
tree4c50e4f445088b5315597e399777e5b8f020cd82 /lib/VNDB
parentdb52af50c29c57fc1179629071ccd5d81baf2506 (diff)
Fixed two perl warning related to reqCookie() returning undef
A TUWF change I forgot to check.
Diffstat (limited to 'lib/VNDB')
-rw-r--r--lib/VNDB/Handler/Tags.pm2
-rw-r--r--lib/VNDB/Handler/VNBrowse.pm2
2 files changed, 2 insertions, 2 deletions
diff --git a/lib/VNDB/Handler/Tags.pm b/lib/VNDB/Handler/Tags.pm
index 6a4cb760..43137506 100644
--- a/lib/VNDB/Handler/Tags.pm
+++ b/lib/VNDB/Handler/Tags.pm
@@ -36,7 +36,7 @@ sub tagpage {
{ get => 'm', required => 0, default => -1, enum => [qw|0 1 2|] },
);
return $self->resNotFound if $f->{_err};
- my $tagspoil = $self->reqCookie('tagspoil');
+ my $tagspoil = $self->reqCookie('tagspoil')||'';
$f->{m} = $tagspoil =~ /^[0-2]$/ ? $tagspoil : 0 if $f->{m} == -1;
my($list, $np) = $t->{meta} || $t->{state} != 2 ? ([],0) : $self->filFetchDB(vn => undef, undef, {
diff --git a/lib/VNDB/Handler/VNBrowse.pm b/lib/VNDB/Handler/VNBrowse.pm
index 97dc4e69..d89048aa 100644
--- a/lib/VNDB/Handler/VNBrowse.pm
+++ b/lib/VNDB/Handler/VNBrowse.pm
@@ -77,7 +77,7 @@ sub _fil_compat {
my $f = $self->formValidate(
{ get => 'ln', required => 0, multi => 1, enum => $self->{languages}, default => '' },
{ get => 'pl', required => 0, multi => 1, enum => $self->{platforms}, default => '' },
- { get => 'sp', required => 0, default => $self->reqCookie('tagspoil') =~ /^([0-2])$/ ? $1 : 0, enum => [0..2] },
+ { get => 'sp', required => 0, default => ($self->reqCookie('tagspoil')||'') =~ /^([0-2])$/ ? $1 : 0, enum => [0..2] },
);
return () if $f->{_err};
$c{lang} //= $f->{ln} if $f->{ln}[0];