Removed ~~ for 5.8.x support

diff --git a/META.yml b/META.yml
index 43e59b6..6845b23 100644 (file)
--- a/META.yml
+++ b/META.yml
@@ -10,6 +10,7 @@ resources:
 build_requires:
   Module::Build: 0.22
   Test::Simple: 0.47
+  YAML: 0.68
 configure_requires:
   Module::Build: 0.34
 provides:
@@ -62,10 +63,10 @@ provides:
     file: lib/SDL/Tutorial.pm
   SDL::Tutorial::Animation:
     file: lib/SDL/Tutorial/Animation.pm
+  SDL::Tutorial::Drawing:
+    file: lib/SDL/Tutorial/Drawing.pm
   SDL::Tutorial::Images:
     file: lib/SDL/Tutorial/Images.pm
-  SDL::Tutorial:Drawing:
-    file: lib/SDL/Tutorial/Drawing.pm
   SDL::Video:
     file: lib/SDL/Video.pm
   SDL_perl:

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;