X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSDL%2FTTFont.pm;h=ef8804fadf63459a94246aba80b133aaf96f3737;hb=b41abbd6015ec5d9bba526df08193b1deb14c2ec;hp=91d892ee3bdfc18490c049e0c42f72cfc6bf4a90;hpb=40654afe399356917d6406e4c20d7c2fe980074f;p=sdlgit%2FSDL_perl.git

diff --git a/lib/SDL/TTFont.pm b/lib/SDL/TTFont.pm
index 91d892e..ef8804f 100644
--- a/lib/SDL/TTFont.pm
+++ b/lib/SDL/TTFont.pm
@@ -82,7 +82,7 @@ sub print {
 	SDL::FreeSurface($self->{-surface}) if ($$self{-surface});
 
 	$$self{-surface} = SDL::TTFPutString($$self{-font},$$self{-mode},
-		$$surface,$x,$y,${$$self{-fg}},${$$self{-bg}},join("",@text));
+		$$surface,$x,$y,$self->{-fg},$self->{-bg},join("",@text));
 
 	croak "Could not print \"", join("",@text), "\" to surface, ",
 		SDL::GetError(), "\n" unless ($$self{-surface});