XS for redtable done for set_gamma_ramp

[sdlgit/SDL_perl.git] / lib / SDL / TTFont.pm

diff --git a/lib/SDL/TTFont.pm b/lib/SDL/TTFont.pm
index 91d892e..ef8804f 100644 (file)
--- 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});