diff --git a/lib/SDL.pm b/lib/SDL.pm
index 6d2a4b4d..7a7d3460 100644
--- a/lib/SDL.pm
+++ b/lib/SDL.pm
@@ -60,7 +60,8 @@ sub NULL {
 
 sub in {
 	my ($k,@t) = @_;
-	(scalar grep { defined $_ && $_ eq $k } @t) <=> 0;
+	return 0 unless defined $k;
+	return $k ~~ @t;
 } 
 
 sub verify (\%@) {
diff --git a/lib/SDL/Tool/Font.pm b/lib/SDL/Tool/Font.pm
index f22be019..b66267fd 100644
--- a/lib/SDL/Tool/Font.pm
+++ b/lib/SDL/Tool/Font.pm
@@ -58,7 +58,9 @@ sub new {
 					-bg => $option{-background} || $option{-bg};
 		for (qw/ normal bold italic underline / ) {
 			if ($option{"-$_"}) {
-				&{"SDL::TTFont::$_"}($$self{-font});
+				
+				SDL::TTFont->can($_)->($$self{-font});
+				#&{$sub}($$self{-font});
 			}
 		}
 	} else {