More fixes for SDL::in() usage

diff --git a/lib/SDL.pm b/lib/SDL.pm
index 7a7d346..b7fb596 100644 (file)
--- 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 (\%@) {