Removed ~~ for 5.8.x support

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

diff --git a/lib/SDL.pm b/lib/SDL.pm
index 0e79ebb..4dff767 100644 (file)
--- a/lib/SDL.pm
+++ b/lib/SDL.pm
@@ -68,7 +68,7 @@ sub NULL {
 sub in {
        my ($k,@t) = @_;
        return 0 unless defined $k;
-       my $r = ($k ~~ @t);
+       my $r = ((scalar grep { defined $_ && $_ eq $k } @t) <=> 0);
        return 0 if $r eq '';
        return $r;