X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSDL%2FApp.pm;h=42b4122297523005c808811ca57a3dae3d24856f;hb=bfc8ec19b05dbed476bd9b90466859046c7acb2e;hp=f28eb0316a548e1b3c410dc3371442f7ee01f026;hpb=8fde61e3e900d5000c94503679d735221acc1882;p=sdlgit%2FSDL_perl.git

diff --git a/lib/SDL/App.pm b/lib/SDL/App.pm
index f28eb03..42b4122 100644
--- a/lib/SDL/App.pm
+++ b/lib/SDL/App.pm
@@ -3,7 +3,8 @@
 #	The application object, sort of like a surface
 #
 #	Copyright (C) 2000,2002,2003,2004 David J. Goehrig
-
+#	Copyright (C) 2009 Kartik Thakore
+#
 package SDL::App;
 
 use strict;
@@ -26,10 +27,13 @@ sub new {
 				-red_accum_size -ras -blue_accum_size -bas 
 				-green_accum_sizee -gas -alpha_accum_size -aas
 				-double_buffer -db -buffer_size -bs -stencil_size -st
-				-asyncblit
+				-asyncblit -init
 		/ ) if ($SDL::DEBUG);
 
-	SDL::Init(SDL_INIT_EVERYTHING());
+        # SDL_INIT_VIDEO() is 0, so check defined instead of truth.
+	my $init = defined $options{-init} ? $options{-init} : SDL_INIT_EVERYTHING();
+
+	SDL::Init($init);
 	
 	my $t = $options{-title} 	|| $options{-t} 	|| $0;
 	my $it = $options{-icon_title} 	|| $options{-it} 	|| $t;