#endif
-int
-force_directx()
+void
+windows_force_driver ()
{
-#if defined WIN32 || WINDOWS
- fprintf( stderr, "SDL Gamma is unsupported in Windows for windib. Forcing directx. \n" );
- SDL_putenv("SDL_VIDEODRIVER=directx");
-#endif
- return 1;
+ const SDL_version *version = SDL_Linked_Version();
+ if(version->patch == 14)
+ {
+ putenv("SDL_VIDEODRIVER=directx");
+ }
+ else
+ {
+ putenv("SDL_VIDEODRIVER=windib");
+ }
}
Uint32
Uint32 flags
CODE:
INIT_NS_APPLICATION
- force_directx();
+#if defined WINDOWS || WIN32
+ windows_force_driver();
+#endif
RETVAL = SDL_Init(flags);
#ifdef HAVE_TLS_CONTEXT
Perl_call_atexit(PERL_GET_CONTEXT, (void*)sdl_perl_atexit,0);