<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head><meta http-equiv="content-type" content="text/html; charset=utf-8" />
<title>[131106] trunk/dports/perl/p5-sdl_perl</title>
</head>
<body>

<style type="text/css"><!--
#msg dl.meta { border: 1px #006 solid; background: #369; padding: 6px; color: #fff; }
#msg dl.meta dt { float: left; width: 6em; font-weight: bold; }
#msg dt:after { content:':';}
#msg dl, #msg dt, #msg ul, #msg li, #header, #footer, #logmsg { font-family: verdana,arial,helvetica,sans-serif; font-size: 10pt;  }
#msg dl a { font-weight: bold}
#msg dl a:link    { color:#fc3; }
#msg dl a:active  { color:#ff0; }
#msg dl a:visited { color:#cc6; }
h3 { font-family: verdana,arial,helvetica,sans-serif; font-size: 10pt; font-weight: bold; }
#msg pre { overflow: auto; background: #ffc; border: 1px #fa0 solid; padding: 6px; }
#logmsg { background: #ffc; border: 1px #fa0 solid; padding: 1em 1em 0 1em; }
#logmsg p, #logmsg pre, #logmsg blockquote { margin: 0 0 1em 0; }
#logmsg p, #logmsg li, #logmsg dt, #logmsg dd { line-height: 14pt; }
#logmsg h1, #logmsg h2, #logmsg h3, #logmsg h4, #logmsg h5, #logmsg h6 { margin: .5em 0; }
#logmsg h1:first-child, #logmsg h2:first-child, #logmsg h3:first-child, #logmsg h4:first-child, #logmsg h5:first-child, #logmsg h6:first-child { margin-top: 0; }
#logmsg ul, #logmsg ol { padding: 0; list-style-position: inside; margin: 0 0 0 1em; }
#logmsg ul { text-indent: -1em; padding-left: 1em; }#logmsg ol { text-indent: -1.5em; padding-left: 1.5em; }
#logmsg > ul, #logmsg > ol { margin: 0 0 1em 0; }
#logmsg pre { background: #eee; padding: 1em; }
#logmsg blockquote { border: 1px solid #fa0; border-left-width: 10px; padding: 1em 1em 0 1em; background: white;}
#logmsg dl { margin: 0; }
#logmsg dt { font-weight: bold; }
#logmsg dd { margin: 0; padding: 0 0 0.5em 0; }
#logmsg dd:before { content:'\00bb';}
#logmsg table { border-spacing: 0px; border-collapse: collapse; border-top: 4px solid #fa0; border-bottom: 1px solid #fa0; background: #fff; }
#logmsg table th { text-align: left; font-weight: normal; padding: 0.2em 0.5em; border-top: 1px dotted #fa0; }
#logmsg table td { text-align: right; border-top: 1px dotted #fa0; padding: 0.2em 0.5em; }
#logmsg table thead th { text-align: center; border-bottom: 1px solid #fa0; }
#logmsg table th.Corner { text-align: left; }
#logmsg hr { border: none 0; border-top: 2px dashed #fa0; height: 1px; }
#header, #footer { color: #fff; background: #636; border: 1px #300 solid; padding: 6px; }
#patch { width: 100%; }
#patch h4 {font-family: verdana,arial,helvetica,sans-serif;font-size:10pt;padding:8px;background:#369;color:#fff;margin:0;}
#patch .propset h4, #patch .binary h4 {margin:0;}
#patch pre {padding:0;line-height:1.2em;margin:0;}
#patch .diff {width:100%;background:#eee;padding: 0 0 10px 0;overflow:auto;}
#patch .propset .diff, #patch .binary .diff  {padding:10px 0;}
#patch span {display:block;padding:0 10px;}
#patch .modfile, #patch .addfile, #patch .delfile, #patch .propset, #patch .binary, #patch .copfile {border:1px solid #ccc;margin:10px 0;}
#patch ins {background:#dfd;text-decoration:none;display:block;padding:0 10px;}
#patch del {background:#fdd;text-decoration:none;display:block;padding:0 10px;}
#patch .lines, .info {color:#888;background:#fff;}
--></style>
<div id="msg">
<dl class="meta">
<dt>Revision</dt> <dd><a href="https://trac.macports.org/changeset/131106">131106</a></dd>
<dt>Author</dt> <dd>ryandesign@macports.org</dd>
<dt>Date</dt> <dd>2015-01-05 22:55:03 -0800 (Mon, 05 Jan 2015)</dd>
</dl>

<h3>Log Message</h3>
<pre>p5-sdl_perl: update to 2.2.6 (#38484); add p5.18 and p5.20 subports; rename patchfiles</pre>

<h3>Modified Paths</h3>
<ul>
<li><a href="#trunkdportsperlp5sdl_perlPortfile">trunk/dports/perl/p5-sdl_perl/Portfile</a></li>
</ul>

<h3>Added Paths</h3>
<ul>
<li><a href="#trunkdportsperlp5sdl_perlfilespatchBuildPLdiff">trunk/dports/perl/p5-sdl_perl/files/patch-Build.PL.diff</a></li>
<li><a href="#trunkdportsperlp5sdl_perlfilespatchmakelibSDLBuildDarwinpmdiff">trunk/dports/perl/p5-sdl_perl/files/patch-make-lib-SDL-Build-Darwin.pm.diff</a></li>
<li><a href="#trunkdportsperlp5sdl_perlfilespatchsrcSDLxsdiff">trunk/dports/perl/p5-sdl_perl/files/patch-src-SDL.xs.diff</a></li>
</ul>

<h3>Removed Paths</h3>
<ul>
<li><a href="#trunkdportsperlp5sdl_perlfilespatchmakelibSDLBuildDarwinpm">trunk/dports/perl/p5-sdl_perl/files/patch-make-lib-SDL-Build-Darwin.pm</a></li>
<li><a href="#trunkdportsperlp5sdl_perlfilespatchsrcSDLxs">trunk/dports/perl/p5-sdl_perl/files/patch-src-SDL.xs</a></li>
<li><a href="#trunkdportsperlp5sdl_perlfilespatchtesttestgfxprimpl">trunk/dports/perl/p5-sdl_perl/files/patch-test-testgfxprim.pl</a></li>
</ul>

</div>
<div id="patch">
<h3>Diff</h3>
<a id="trunkdportsperlp5sdl_perlPortfile"></a>
<div class="modfile"><h4>Modified: trunk/dports/perl/p5-sdl_perl/Portfile (131105 => 131106)</h4>
<pre class="diff"><span>
<span class="info">--- trunk/dports/perl/p5-sdl_perl/Portfile        2015-01-06 06:15:07 UTC (rev 131105)
+++ trunk/dports/perl/p5-sdl_perl/Portfile        2015-01-06 06:55:03 UTC (rev 131106)
</span><span class="lines">@@ -4,72 +4,39 @@
</span><span class="cx"> PortSystem              1.0
</span><span class="cx"> PortGroup               perl5 1.0
</span><span class="cx"> 
</span><del>-perl5.branches      5.16
-perl5.setup             SDL_Perl 2.1.3
-revision                5
</del><ins>+perl5.branches          5.16 5.18 5.20
+perl5.setup             SDL_Perl 2.2.6 ../by-authors/id/K/KT/KTHAKORE
</ins><span class="cx"> maintainers             nomaintainer
</span><span class="cx"> categories-append       devel
</span><span class="cx"> description             Perl bindings for the Simple DirectMedia Layer
</span><span class="cx"> long_description        ${description}
</span><span class="cx"> homepage                http://sdl.perl.org/
</span><del>-master_sites            http://search.cpan.org/CPAN/authors/id/D/DG/DGOEHRIG/
-checksums               md5 6ce26e1b710ce52def4ec22637cd5176 \
-                        sha1 9c11cd7e4356f9b254cd9e3a2f993b1751a21552 \
-                        rmd160 26a4d317d9a5761fc893b732f2236eaad8d12b88
</del><span class="cx"> platforms               darwin
</span><ins>+distname                ${perl5.module}-v${version}
</ins><span class="cx"> 
</span><ins>+checksums               rmd160  1a6d779c05d97c691e9a3673e83ca650142a0d0a \
+                        sha256  a3fbf0213855629fefab9fa3431053ad646e175e9daa8e9796be1d84a5c32061
+
</ins><span class="cx"> if {${perl5.major} != &quot;&quot;} {
</span><span class="cx"> 
</span><del>-patchfiles              patch-make-lib-SDL-Build-Darwin.pm patch-src-SDL.xs \
-                        patch-test-testgfxprim.pl
-
</del><span class="cx"> depends_lib-append      port:p${perl5.major}-module-build \
</span><del>-                        port:libsdl
</del><ins>+                        port:libsdl \
+                        port:libsdl_gfx \
+                        port:libsdl_image \
+                        port:libsdl_mixer \
+                        port:libsdl_net \
+                        port:libsdl_ttf
</ins><span class="cx"> 
</span><del>-variant image {
-    depends_lib-append  port:libsdl_image
-}
</del><ins>+patchfiles              patch-Build.PL.diff \
+                        patch-make-lib-SDL-Build-Darwin.pm.diff \
+                        patch-src-SDL.xs.diff
</ins><span class="cx"> 
</span><del>-variant mixer {
-    depends_lib-append  port:libsdl_mixer
</del><ins>+post-patch {
+    reinplace &quot;s|@ARCHFLAGS@|[get_canonical_archflags]|g&quot; ${worksrcpath}/Build.PL
</ins><span class="cx"> }
</span><span class="cx"> 
</span><del>-variant net {
-    depends_lib-append  port:libsdl_net
-}
</del><ins>+perl5.use_module_build
</ins><span class="cx"> 
</span><del>-variant ttf {
-    depends_lib-append  port:libsdl_ttf
</del><span class="cx"> }
</span><span class="cx"> 
</span><del>-variant gfx {
-    depends_lib-append  port:libsdl_gfx
-}
-
-default_variants        +image +mixer +net +ttf +gfx
-
-configure.cmd           ${perl5.bin}
-configure.pre_args      Build.PL
-configure.env-append    PREFIX=${prefix}
-configure.args          'Build Build' installdirs=vendor
-
-build.cmd               ${perl5.bin}
-build.pre_args          Build
-build.args              build
-
-# Work around build system problem:
-post-build {
-    file rename ${worksrcpath}/blib/arch/auto/src/SDL \
-        ${worksrcpath}/blib/arch/auto/
-    file rename ${worksrcpath}/blib/arch/auto/src/SDL_perl \
-        ${worksrcpath}/blib/arch/auto/
-    system &quot;rmdir ${worksrcpath}/blib/arch/auto/src&quot;
-}
-
-test.pre_args           Build
-
-destroot.cmd            ${perl5.bin}
-destroot.pre_args       Build
-destroot.args           install
-destroot.destdir        destdir=${destroot}
-}
</del><ins>+livecheck.version       v${version}
</ins></span></pre></div>
<a id="trunkdportsperlp5sdl_perlfilespatchBuildPLdiff"></a>
<div class="addfile"><h4>Added: trunk/dports/perl/p5-sdl_perl/files/patch-Build.PL.diff (0 => 131106)</h4>
<pre class="diff"><span>
<span class="info">--- trunk/dports/perl/p5-sdl_perl/files/patch-Build.PL.diff                                (rev 0)
+++ trunk/dports/perl/p5-sdl_perl/files/patch-Build.PL.diff        2015-01-06 06:55:03 UTC (rev 131106)
</span><span class="lines">@@ -0,0 +1,13 @@
</span><ins>+--- Build.PL.orig        2009-11-07 14:47:35.000000000 -0600
++++ Build.PL        2015-01-06 00:44:26.000000000 -0600
+@@ -167,8 +167,8 @@
+         $defines,
+         $includes,
+         $links,
+-        $sdl_compile_flags,
+-        $sdl_link_flags,
++        $sdl_compile_flags . ' @ARCHFLAGS@',
++        $sdl_link_flags . ' @ARCHFLAGS@',
+ );
+ # now we're ready to go!
+ $build-&gt;create_build_script();
</ins></span></pre></div>
<a id="trunkdportsperlp5sdl_perlfilespatchmakelibSDLBuildDarwinpm"></a>
<div class="delfile"><h4>Deleted: trunk/dports/perl/p5-sdl_perl/files/patch-make-lib-SDL-Build-Darwin.pm (131105 => 131106)</h4>
<pre class="diff"><span>
<span class="info">--- trunk/dports/perl/p5-sdl_perl/files/patch-make-lib-SDL-Build-Darwin.pm        2015-01-06 06:15:07 UTC (rev 131105)
+++ trunk/dports/perl/p5-sdl_perl/files/patch-make-lib-SDL-Build-Darwin.pm        2015-01-06 06:55:03 UTC (rev 131106)
</span><span class="lines">@@ -1,44 +0,0 @@
</span><del>---- make/lib/SDL/Build/Darwin.pm.orig        2008-05-03 13:58:14.000000000 -0700
-+++ make/lib/SDL/Build/Darwin.pm        2008-05-03 14:00:52.000000000 -0700
-@@ -5,28 +5,25 @@
- sub fetch_includes
- {
-         return (
--        '/usr/local/include/SDL'   =&gt; '/usr/local/lib',
-+        &quot;$ENV{'PREFIX'}/include&quot;   =&gt; &quot;$ENV{'PREFIX'}/lib&quot;,
-+        &quot;$ENV{'PREFIX'}/include/SDL&quot; =&gt; &quot;$ENV{'PREFIX'}/lib&quot;,
-         '/usr/local/include'       =&gt; '/usr/local/lib',
--        '/usr/local/include/smpeg' =&gt; '/usr/local/lib',
--        '/usr/include/SDL'         =&gt; '/usr/lib',
-         '/usr/include'             =&gt; '/usr/lib',
--        '/usr/include/smpeg'       =&gt; '/usr/lib',
--        '/usr/local/include/GL'    =&gt; '/usr/local/lib',
--        '/usr/local/include/gl'    =&gt; '/usr/local/lib',
--        '/usr/include/GL'          =&gt; '/usr/lib', 
--        '/usr/include/gl'          =&gt; '/usr/lib', 

--        '/System/Library/Frameworks/SDL_mixer.framework/Headers'     =&gt; '../../lib',
--        '/System/Library/Frameworks/SDL_image.framework/Headers'     =&gt; '../../lib',
--        '/System/Library/Frameworks/SDL_ttf.framework/Headers'       =&gt; '../../lib',
--        '/System/Library/Frameworks/libogg.framework/Headers'        =&gt; '../../lib',
--        '/System/Library/Frameworks/libvorbis.framework/Headers'     =&gt; '../../lib',
--        '/System/Library/Frameworks/libvorbisfile.framework/Headers' =&gt; '../../lib',
--        '/System/Library/Frameworks/libvorbisenc.framework/Headers'  =&gt; '../../lib',
--        '../../include'                                              =&gt; '../../lib',
-+        '../../include'                                       =&gt; '../../lib',
-         '/System/Library/Frameworks/OpenGL.framework/Headers'        =&gt;
-                 '/System/Library/Frameworks/OpenGL.framework/Libraries',
-         );
- }

-+sub build_defines
-+{
-+        my $self = shift;
-+        my $defines = $self-&gt;SUPER::build_defines(@_);
-+
-+        push @{$defines-&gt;{SDL}}, &quot;-Ddarwin&quot;, &quot;-DMACOSX&quot;;
-+
-+        return $defines;
-+}
-+
- 1;
</del></span></pre></div>
<a id="trunkdportsperlp5sdl_perlfilespatchmakelibSDLBuildDarwinpmdifffromrev131105trunkdportsperlp5sdl_perlfilespatchmakelibSDLBuildDarwinpm"></a>
<div class="copfile"><h4>Copied: trunk/dports/perl/p5-sdl_perl/files/patch-make-lib-SDL-Build-Darwin.pm.diff (from rev 131105, trunk/dports/perl/p5-sdl_perl/files/patch-make-lib-SDL-Build-Darwin.pm) (0 => 131106)</h4>
<pre class="diff"><span>
<span class="info">--- trunk/dports/perl/p5-sdl_perl/files/patch-make-lib-SDL-Build-Darwin.pm.diff                                (rev 0)
+++ trunk/dports/perl/p5-sdl_perl/files/patch-make-lib-SDL-Build-Darwin.pm.diff        2015-01-06 06:55:03 UTC (rev 131106)
</span><span class="lines">@@ -0,0 +1,26 @@
</span><ins>+--- make/lib/SDL/Build/Darwin.pm.orig        2009-11-07 14:47:35.000000000 -0600
++++ make/lib/SDL/Build/Darwin.pm        2013-03-25 04:35:19.000000000 -0500
+@@ -72,21 +72,9 @@
+                 $include_path[0] =&gt; $lib_path[0],

+                 # Local libraries.
+-                '/usr/local/include/smpeg' =&gt; '/usr/local/lib',
+-                '/usr/local/include/GL'    =&gt; '/usr/local/lib',
+-                '/usr/local/include/gl'    =&gt; '/usr/local/lib',
++                &quot;$ENV{'PREFIX'}/include&quot;   =&gt; &quot;$ENV{'PREFIX'}/lib&quot;,
++                &quot;$ENV{'PREFIX'}/include/SDL&quot; =&gt; &quot;$ENV{'PREFIX'}/lib&quot;,

+-                # System libraries.
+-                '/usr/include/smpeg'       =&gt; '/usr/lib',
+-                '/usr/include/GL'          =&gt; '/usr/lib', 
+-                '/usr/include/gl'          =&gt; '/usr/lib', 
+-
+-                # System-wide frameworks.
+-                '/System/Library/Frameworks/libogg.framework/Headers'        =&gt; '../../lib',
+-                '/System/Library/Frameworks/libvorbis.framework/Headers'     =&gt; '../../lib',
+-                '/System/Library/Frameworks/libvorbisfile.framework/Headers' =&gt; '../../lib',
+-                '/System/Library/Frameworks/libvorbisenc.framework/Headers'  =&gt; '../../lib',
+-                '/System/Library/Frameworks/OpenGL.framework/Headers'        =&gt; '/System/Library/Frameworks/OpenGL.framework/Libraries',

+                 # System libraries.
+                 '/System/Library/Frameworks/OpenGL.framework/Headers'        =&gt; '/System/Library/Frameworks/OpenGL.framework/Libraries',
</ins></span></pre></div>
<a id="trunkdportsperlp5sdl_perlfilespatchsrcSDLxs"></a>
<div class="delfile"><h4>Deleted: trunk/dports/perl/p5-sdl_perl/files/patch-src-SDL.xs (131105 => 131106)</h4>
<pre class="diff"><span>
<span class="info">--- trunk/dports/perl/p5-sdl_perl/files/patch-src-SDL.xs        2015-01-06 06:15:07 UTC (rev 131105)
+++ trunk/dports/perl/p5-sdl_perl/files/patch-src-SDL.xs        2015-01-06 06:55:03 UTC (rev 131106)
</span><span class="lines">@@ -1,65 +0,0 @@
</span><del>---- src/SDL.xs.orig        2006-11-27 05:58:47.000000000 -0800
-+++ src/SDL.xs        2006-11-27 05:59:10.000000000 -0800
-@@ -71,6 +71,29 @@

- #include &quot;defines.h&quot;

-+#ifdef MACOSX
-+#include &lt;CoreServices/CoreServices.h&gt;
-+
-+void CPSEnableForegroundOperation(ProcessSerialNumber* psn);
-+void NSApplicationLoad();
-+void SDL_macosx_init(void) {
-+    Boolean sameProc;
-+    ProcessSerialNumber myProc, frProc;
-+    if (GetFrontProcess(&amp;frProc) == noErr)
-+        if (GetCurrentProcess(&amp;myProc) == noErr)
-+            if (SameProcess(&amp;frProc, &amp;myProc, &amp;sameProc) == noErr &amp;&amp; sameProc == 0) {
-+                /*
-+                NSLog(@&quot;creating bad autorelease pool&quot;);
-+                [[NSAutoreleasePool alloc] init];
-+                */
-+                NSApplicationLoad();
-+                CPSEnableForegroundOperation(&amp;myProc);
-+            }
-+}
-+void SDL_macosx_quit(void) {
-+}
-+#endif // MACOSX
-+
- Uint32 
- sdl_perl_timer_callback ( Uint32 interval, void* param )
- {
-@@ -3902,7 +3925,7 @@
-      RETVAL

- int
--GFXFilledpieColor ( dst, x, y, rad, start, end, color )
-+GFXFilledPieColor ( dst, x, y, rad, start, end, color )
-     SDL_Surface* dst;
-     Sint16 x;
-     Sint16 y;
-@@ -3911,12 +3934,12 @@
-     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

- int
--GFXFilledpieRGBA ( dst, x, y, rad, start, end, r, g, b, a )
-+GFXFilledPieRGBA ( dst, x, y, rad, start, end, r, g, b, a )
-     SDL_Surface* dst;
-     Sint16 x;
-     Sint16 y;
-@@ -3928,7 +3951,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

</del></span></pre></div>
<a id="trunkdportsperlp5sdl_perlfilespatchsrcSDLxsdifffromrev131105trunkdportsperlp5sdl_perlfilespatchsrcSDLxs"></a>
<div class="copfile"><h4>Copied: trunk/dports/perl/p5-sdl_perl/files/patch-src-SDL.xs.diff (from rev 131105, trunk/dports/perl/p5-sdl_perl/files/patch-src-SDL.xs) (0 => 131106)</h4>
<pre class="diff"><span>
<span class="info">--- trunk/dports/perl/p5-sdl_perl/files/patch-src-SDL.xs.diff                                (rev 0)
+++ trunk/dports/perl/p5-sdl_perl/files/patch-src-SDL.xs.diff        2015-01-06 06:55:03 UTC (rev 131106)
</span><span class="lines">@@ -0,0 +1,32 @@
</span><ins>+--- src/SDL.xs.orig        2009-11-07 14:47:35.000000000 -0600
++++ src/SDL.xs        2014-12-13 19:54:40.000000000 -0600
+@@ -119,6 +119,29 @@

+ #endif

++#ifdef MACOSX
++#include &lt;CoreServices/CoreServices.h&gt;
++
++void CPSEnableForegroundOperation(ProcessSerialNumber* psn);
++void NSApplicationLoad();
++void SDL_macosx_init(void) {
++    Boolean sameProc;
++    ProcessSerialNumber myProc, frProc;
++    if (GetFrontProcess(&amp;frProc) == noErr)
++        if (GetCurrentProcess(&amp;myProc) == noErr)
++            if (SameProcess(&amp;frProc, &amp;myProc, &amp;sameProc) == noErr &amp;&amp; sameProc == 0) {
++                /*
++                NSLog(@&quot;creating bad autorelease pool&quot;);
++                [[NSAutoreleasePool alloc] init];
++                */
++                NSApplicationLoad();
++                CPSEnableForegroundOperation(&amp;myProc);
++            }
++}
++void SDL_macosx_quit(void) {
++}
++#endif // MACOSX
++
+ Uint32 
+ sdl_perl_timer_callback ( Uint32 interval, void* param )
+ {
</ins></span></pre></div>
<a id="trunkdportsperlp5sdl_perlfilespatchtesttestgfxprimpl"></a>
<div class="delfile"><h4>Deleted: trunk/dports/perl/p5-sdl_perl/files/patch-test-testgfxprim.pl (131105 => 131106)</h4>
<pre class="diff"><span>
<span class="info">--- trunk/dports/perl/p5-sdl_perl/files/patch-test-testgfxprim.pl        2015-01-06 06:15:07 UTC (rev 131105)
+++ trunk/dports/perl/p5-sdl_perl/files/patch-test-testgfxprim.pl        2015-01-06 06:55:03 UTC (rev 131106)
</span><span class="lines">@@ -1,15 +0,0 @@
</span><del>---- test/testgfxprim.pl.orig        2006-11-27 06:03:08.000000000 -0800
-+++ test/testgfxprim.pl        2006-11-27 06:03:24.000000000 -0800
-@@ -202,10 +202,10 @@
-                 $surfMidWidth*.25,$surfMidHeight*.10,255,255,0,255);

-         # pie slices
--        SDL::GFXFilledpieRGBA($surf,$surfMidWidth,$surfMidHeight, $surfMidWidth*.1,
-+        SDL::GFXFilledPieRGBA($surf,$surfMidWidth,$surfMidHeight, $surfMidWidth*.1,
-                 0,90,0,0,255,255);

--        SDL::GFXFilledpieRGBA($surf,$surfMidWidth,$surfMidHeight, $surfMidWidth*.1,
-+        SDL::GFXFilledPieRGBA($surf,$surfMidWidth,$surfMidHeight, $surfMidWidth*.1,
-                 180,270,0,0,255,255);

-         # polygons
</del></span></pre>
</div>
</div>

</body>
</html>