From: Kartik Thakore <thakore.kartik@gmail.com>
Date: Mon, 17 Aug 2009 09:14:29 +0000 (-0400)
Subject: More fixes for SDL::in() usage
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=03aadbe5e622afca6e6b0cea1927714b0cd65b68;p=sdlgit%2FSDL_perl.git

More fixes for SDL::in() usage
---

diff --git a/lib/SDL.pm b/lib/SDL.pm
index 7a7d346..b7fb596 100644
--- a/lib/SDL.pm
+++ b/lib/SDL.pm
@@ -61,7 +61,10 @@ sub NULL {
 sub in {
 	my ($k,@t) = @_;
 	return 0 unless defined $k;
-	return $k ~~ @t;
+	my $r = ($k ~~ @t);
+	return 0 if $r eq '';
+	return $r;
+
 } 
 
 sub verify (\%@) {