More fixes for SDL::in() usage

[sdlgit/SDL_perl.git] / lib / SDL.pm

diff --git a/lib/SDL.pm b/lib/SDL.pm
index 6f012ba..b7fb596 100644 (file)
--- a/lib/SDL.pm
+++ b/lib/SDL.pm
@@ -26,7 +26,7 @@
 #
 #      David J. Goehrig
 #      dgoehrig@cpan.org
-# Copyright (C) 2009 Kartik Thakore
+#
 
 package SDL;
 
@@ -60,7 +60,11 @@ sub NULL {
 
 sub in {
        my ($k,@t) = @_;
-       (scalar grep { defined $_ && $_ eq $k } @t) <=> 0;
+       return 0 unless defined $k;
+       my $r = ($k ~~ @t);
+       return 0 if $r eq '';
+       return $r;
+
 } 
 
 sub verify (\%@) {