Added Some fixes

diff --git a/.gitignore b/.gitignore
index 30d1556..94cc825 100644 (file)
--- a/.gitignore
+++ b/.gitignore
@@ -6,3 +6,4 @@ lib/SDL/Config.pm
 SDL/
 SDL_perl.c
 SDL_perl.xs
+stage
\ No newline at end of file

diff --git a/lib/SDL/App.pm b/lib/SDL/App.pm
index f13d227..fe61fe5 100644 (file)
--- a/lib/SDL/App.pm
+++ b/lib/SDL/App.pm
@@ -80,8 +80,8 @@ sub new {
        } else {
                $SDL::App::USING_OPENGL = 0;
        }
-       my $self = SDL::SetVideoMode($w,$h,$d,$f);
-               $$self
+       my $self = \SDL::SetVideoMode($w,$h,$d,$f);
+               $$self  
                or die SDL::GetError();
        
        if ($ic and -e $ic) {

diff --git a/src/SDL.xs b/src/SDL.xs
index b880c5c..f04ad58 100644 (file)
--- a/src/SDL.xs
+++ b/src/SDL.xs
@@ -535,7 +535,7 @@ PeepEvents( e, numevents, action, mask)
        SDL_eventaction action
        Uint32 mask
        CODE:
-               RETVAL = SDL_PeepEvents( e, numevents, action, mask);
+               RETVAL = (int)SDL_PeepEvents( e, numevents, action, mask);
        OUTPUT:
                RETVAL