diff options
author | Yorhel <git@yorhel.nl> | 2011-02-04 12:00:59 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2011-02-04 12:00:59 +0100 |
commit | f22fc3511bacf37946f681dbcd8c40846feae6c6 (patch) | |
tree | 4c50e4f445088b5315597e399777e5b8f020cd82 /lib/VNDB/Handler | |
parent | db52af50c29c57fc1179629071ccd5d81baf2506 (diff) |
Fixed two perl warning related to reqCookie() returning undef
A TUWF change I forgot to check.
Diffstat (limited to 'lib/VNDB/Handler')
-rw-r--r-- | lib/VNDB/Handler/Tags.pm | 2 | ||||
-rw-r--r-- | lib/VNDB/Handler/VNBrowse.pm | 2 |
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]; |