SOURCES: perl-SDL-gfxPie.patch (NEW), perl-SDL-no-mixertest.patch ...

[tommat]

Author: tommat                       Date: Sat Jan  5 18:15:06 2008 GMT
Module: SOURCES                       Tag: HEAD
---- Log message:
- initial from FC

---- Files affected:
SOURCES:
   perl-SDL-gfxPie.patch (NONE -> 1.1)  (NEW), perl-SDL-no-mixertest.patch (NONE -> 1.1)  (NEW)

---- Diffs:

================================================================
Index: SOURCES/perl-SDL-gfxPie.patch
diff -u /dev/null SOURCES/perl-SDL-gfxPie.patch:1.1
--- /dev/null	Sat Jan  5 19:15:06 2008
+++ SOURCES/perl-SDL-gfxPie.patch	Sat Jan  5 19:15:00 2008
@@ -0,0 +1,34 @@
+--- src/SDL.xs~	2003-03-27 12:17:23.000000000 +0200
++++ src/SDL.xs	2005-02-25 20:32:07.353170226 +0200
+@@ -71,6 +71,7 @@
+ #include <SDL_gfxPrimitives.h>
+ #include <SDL_framerate.h>
+ #include <SDL_imageFilter.h>
++#define PERL_SDL_GFXVERSION SDL_VERSIONNUM(SDL_GFXPRIMITIVES_MAJOR,SDL_GFXPRIMITIVES_MINOR,SDL_GFXPRIMITIVES_MICRO)
+ #endif
+ 
+ #ifdef USE_THREADS
+@@ -3742,7 +3743,11 @@
+     Sint16 end;
+     Uint32 color;
+ CODE:
++#if PERL_SDL_GFXVERSION >= 2012
++     RETVAL = filledPieColor( dst, x, y, rad, start, end, color );
++#else
+      RETVAL = filledpieColor( dst, x, y, rad, start, end, color );
++#endif
+ OUTPUT:
+      RETVAL
+ 
+@@ -3759,7 +3764,11 @@
+     Uint8 b;
+     Uint8 a;
+ CODE:
++#if PERL_SDL_GFXVERSION >= 2012
++     RETVAL = filledPieRGBA( dst, x, y, rad, start, end, r, g, b, a );
++#else
+      RETVAL = filledpieRGBA( dst, x, y, rad, start, end, r, g, b, a );
++#endif
+ OUTPUT:
+      RETVAL
+ 

================================================================
Index: SOURCES/perl-SDL-no-mixertest.patch
diff -u /dev/null SOURCES/perl-SDL-no-mixertest.patch:1.1
--- /dev/null	Sat Jan  5 19:15:06 2008
+++ SOURCES/perl-SDL-no-mixertest.patch	Sat Jan  5 19:15:01 2008
@@ -0,0 +1,21 @@
+--- SDL_Perl-2.1.3/t/mixerpm.t.no-mixertest	2005-10-05 11:25:49.000000000 +0200
++++ SDL_Perl-2.1.3/t/mixerpm.t	2006-08-15 08:42:41.000000000 +0200
+@@ -16,7 +16,7 @@
+ use Test::More;
+ 
+ if ( SDL::Config->has('SDL_mixer') ) {
+-	plan ( tests => 3 );
++	plan ( tests => 2 );
+ } else {
+ 	plan ( skip_all => 'SDL_mixer support not compiled' );
+ }
+@@ -59,9 +59,3 @@
+ 	playing
+ 	playing_music
+ 	/);
+-
+-# these are exported by default, so main:: should know them:
+-SDL::Init(SDL_INIT_AUDIO);
+-my $mixer = SDL::Mixer->new();
+-isa_ok($mixer, 'SDL::Mixer');
+-
================================================================