From: Kartik Thakore <thakore.kartik@gmail.com>
Date: Mon, 3 Aug 2009 01:56:31 +0000 (-0400)
Subject: Added Some fixes
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f4b951a25fbdf1befb51f44847ebd96a5b3fb3ea;p=sdlgit%2FSDL_perl.git

Added Some fixes
---

diff --git a/.gitignore b/.gitignore
index 30d1556..94cc825 100644
--- 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
--- 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
--- 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