Removed ~~ for 5.8.x support

edipretoro · Aug 19, 2009 · 5c44eb3 · 5c44eb3
1 parent db3da11
commit 5c44eb3
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git 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
@@ -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;