Fixes for Font in strict

cthulhuology · Aug 15, 2009 · 1cf7cae · 1cf7cae
1 parent 6da5a69
commit 1cf7cae
Show file tree

Hide file tree

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