From: Kartik Thakore <thakore.kartik@gmail.com>
Date: Wed, 19 Aug 2009 09:40:17 +0000 (-0400)
Subject: Removed ~~ for 5.8.x support
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5c44eb34dedf77aa7c4f679ef5d5bbab24dea8d9;p=sdlgit%2FSDL_perl.git

Removed ~~ for 5.8.x support
---

diff --git a/META.yml b/META.yml
index 43e59b6..6845b23 100644
--- 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
--- 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;