Make surfaces work again (bad hack though)

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

diff --git a/lib/SDL/App.pm b/lib/SDL/App.pm
index e5a6cdc..c924579 100644 (file)
--- a/lib/SDL/App.pm
+++ b/lib/SDL/App.pm
@@ -112,7 +112,7 @@ sub new {
                $SDL::App::USING_OPENGL = 0;
        }
 
-       my $self = \SDL::SetVideoMode($w,$h,$d,$f)
+       my $self = SDL::SetVideoMode('SDL::Surface',$w,$h,$d,$f)
                or croak SDL::GetError();
        
        if ($ic and -e $ic) {