dev-perl/sdl-perl/files/sdl-perl-1.20.3-pie-typo.patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

Fix a case typo.

http://bugs.gentoo.org/show_bug.cgi?id=30599

--- SDL_perl-1.20.3/SDL_perl.xs
+++ SDL_perl-1.20.3/SDL_perl.xs
@@ -3742,7 +3742,7 @@
     Sint16 end;
     Uint32 color;
 CODE:
-     RETVAL = filledpieColor( dst, x, y, rad, start, end, color );
+     RETVAL = filledPieColor( dst, x, y, rad, start, end, color );
 OUTPUT:
      RETVAL
 
@@ -3759,7 +3759,7 @@
     Uint8 b;
     Uint8 a;
 CODE:
-     RETVAL = filledpieRGBA( dst, x, y, rad, start, end, r, g, b, a );
+     RETVAL = filledPieRGBA( dst, x, y, rad, start, end, r, g, b, a );
 OUTPUT:
      RETVAL