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/VNBrowse.pm | |
| 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/VNBrowse.pm')
| -rw-r--r-- | lib/VNDB/Handler/VNBrowse.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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]; |