From f22fc3511bacf37946f681dbcd8c40846feae6c6 Mon Sep 17 00:00:00 2001
From: Yorhel <git@yorhel.nl>
Date: Fri, 4 Feb 2011 12:00:59 +0100
Subject: Fixed two perl warning related to reqCookie() returning undef

A TUWF change I forgot to check.
---
 lib/VNDB/Handler/VNBrowse.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/VNDB/Handler/VNBrowse.pm')

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];
-- 
cgit v1.2.3