From: Leon Brocard <acme@astray.com>
Date: Fri, 16 Oct 2009 07:08:20 +0000 (+0100)
Subject: remove ugly hack
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9494562d9b14f27a7f8fcf53a0df92a3c1e147b5;p=sdlgit%2FSDL_perl.git

remove ugly hack
---

diff --git a/lib/SDL/App.pm b/lib/SDL/App.pm
index afdb5a3..86e4ea4 100644
--- 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('SDL::Surface',$w,$h,$d,$f)
+	my $self = SDL::SetVideoMode($w,$h,$d,$f)
 		or croak SDL::GetError();
 	
 	if ($ic and -e $ic) {
diff --git a/src/SDL.xs b/src/SDL.xs
index 4d41a37..13d265c 100644
--- a/src/SDL.xs
+++ b/src/SDL.xs
@@ -1240,14 +1240,15 @@ PaletteNColors ( palette, ... )
 		RETVAL
 
 SDL_Surface *
-SetVideoMode ( CLASS, width, height, bpp, flags )
-        char* CLASS
+SetVideoMode ( width, height, bpp, flags )
+
 	int width
 	int height
 	int bpp
 	Uint32 flags
 
 	CODE:
+	        char *CLASS = "SDL::Surface";
 		RETVAL = SDL_SetVideoMode(width,height,bpp,flags);
 	OUTPUT:
 		RETVAL