Merged in master to get version fixes

diff --git a/Build.PL b/Build.PL
index ca0cbec..d0acfc3 100755 (executable)
--- a/Build.PL
+++ b/Build.PL
@@ -143,7 +143,7 @@ my $build   = SDL::Build->new(
        xs_files             => \%xs,
        meta_add             =>      
        {
-               no_index =>  { file => [ <make/lib/SDL/*.pm>, <make/lib/SDL/Build/*.pm> ] },
+               no_index =>  { file => [ <make/lib/SDL/*.pm>, <make/lib/SDL/Build/*.pm>, <make/lib/ExtUtils/CBuilder/*>, <make/lib/ExtUtils/*>, <make/lib/ExtUtils/CBuilder/Platform/Windows.pm> ] },
        },
        dist_author          => 'David J. Goehrig <DGOEHRIG@cpan.org>',
 );

diff --git a/META.yml b/META.yml
deleted file mode 100644 (file)
index ad9b2bc..0000000
--- a/META.yml
+++ /dev/null
@@ -1,93 +0,0 @@
----
-name: SDL_Perl
-version: v2.2.2.3
-author:
-  - 'David J. Goehrig <DGOEHRIG@cpan.org>'
-abstract: Simple DirectMedia Layer for Perl
-license: lgpl
-resources:
-  license: http://www.gnu.org/licenses/old-licenses/lgpl-2.1.txt
-build_requires:
-  Alien::SDL: 0.01
-  ExtUtils::CBuilder: 0.260301
-  Module::Build: 0.22
-  Test::Simple: 0.47
-  YAML: 0.68
-configure_requires:
-  Module::Build: 0.34
-provides:
-  SDL:
-    file: lib/SDL.pm
-    version: v2.2.2.3
-  SDL::App:
-    file: lib/SDL/App.pm
-  SDL::Cdrom:
-    file: lib/SDL/Cdrom.pm
-  SDL::Color:
-    file: lib/SDL/Color.pm
-  SDL::Constants:
-    file: lib/SDL/Constants.pm
-  SDL::Cursor:
-    file: lib/SDL/Cursor.pm
-  SDL::Event:
-    file: lib/SDL/Event.pm
-  SDL::Font:
-    file: lib/SDL/Font.pm
-  SDL::MPEG:
-    file: lib/SDL/MPEG.pm
-  SDL::Mixer:
-    file: lib/SDL/Mixer.pm
-  SDL::Music:
-    file: lib/SDL/Music.pm
-  SDL::OpenGL:
-    file: lib/SDL/OpenGL.pm
-  SDL::OpenGL::Constants:
-    file: lib/SDL/OpenGL/Constants.pm
-  SDL::Palette:
-    file: lib/SDL/Palette.pm
-  SDL::Rect:
-    file: lib/SDL/Rect.pm
-  SDL::SFont:
-    file: lib/SDL/SFont.pm
-  SDL::Sound:
-    file: lib/SDL/Sound.pm
-  SDL::Surface:
-    file: lib/SDL/Surface.pm
-  SDL::TTFont:
-    file: lib/SDL/TTFont.pm
-  SDL::Timer:
-    file: lib/SDL/Timer.pm
-  SDL::Tool::Font:
-    file: lib/SDL/Tool/Font.pm
-  SDL::Tool::Graphic:
-    file: lib/SDL/Tool/Graphic.pm
-  SDL::Tutorial:
-    file: lib/SDL/Tutorial.pm
-  SDL::Tutorial::Animation:
-    file: lib/SDL/Tutorial/Animation.pm
-  SDL::Tutorial::Drawing:
-    file: lib/SDL/Tutorial/Drawing.pm
-  SDL::Tutorial::Images:
-    file: lib/SDL/Tutorial/Images.pm
-  SDL::Video:
-    file: lib/SDL/Video.pm
-  SDL_perl:
-    file: lib/SDL_perl.pm
-  Walker:
-    file: lib/SDL/Tutorial/Images.pm
-generated_by: Module::Build version 0.34
-meta-spec:
-  url: http://module-build.sourceforge.net/META-spec-v1.4.html
-  version: 1.4
-no_index:
-  file:
-    - make/lib/SDL/Build.pm
-    - make/lib/SDL/Utility.pm
-    - make/lib/SDL/Build/Cygwin.pm
-    - make/lib/SDL/Build/Darwin.pm
-    - make/lib/SDL/Build/Freebsd.pm
-    - make/lib/SDL/Build/Linux.pm
-    - make/lib/SDL/Build/MSWin32.pm
-    - make/lib/SDL/Build/Netbsd.pm
-    - make/lib/SDL/Build/Openbsd.pm
-    - make/lib/SDL/Build/Solaris.pm

diff --git a/README b/README
index f013bb0..8369559 100644 (file)
--- a/README
+++ b/README
@@ -1,12 +1,16 @@
-README for SDL_Perl-2.2.1
+README for SDL_Perl-2.2.2
 
-What's New in 2.2.1:
+What's New in 2.2.2:
 
-SDL_Perl-2.2.1
-Adds critical bug fixes in the following areas:
--SDL and Constants
--SFont and TTFont 
--SDL::Tutorial
+SDL_Perl-2.2.2
+
+       -Made App loop() faster https://rt.cpan.org/Public/Bug/Display.html?id=16988
+       -Patched support for add support for gluquadric* sub https://rt.cpan.org/Public/Bug/Display.html?id=25598
+       -Made App init slimer https://rt.cpan.org/Public/Bug/Display.html?id=16987
+       -Added faster SDL::Color alternative https://rt.cpan.org/Public/Bug/Display.html?id=17975
+       -Added better error reporting for TTFont errors
+       -Added win32 support https://rt.cpan.org/Ticket/Display.html?id=49003
+       
 
 Prerequisites:
 

diff --git a/lib/SDL.pm b/lib/SDL.pm
index bc03a0e..0eb9ea0 100644 (file)
--- a/lib/SDL.pm
+++ b/lib/SDL.pm
@@ -54,7 +54,7 @@ sub import {
   $self->export_to_level(1, @_);
   SDL::Constants->export_to_level(1);
 }
-$VERSION = '2.2.2.3';
+$VERSION = '2.2.2.5';
 
 print "$VERSION" if (defined($ARGV[0]) && ($ARGV[0] eq '--SDLperl'));
 

diff --git a/t/surfaceML.t b/t/surfaceML.t
new file mode 100644 (file)
index 0000000..a459e52
--- /dev/null
+++ b/t/surfaceML.t
@@ -0,0 +1,73 @@
+#!/usr/bin/perl -w
+#
+# Copyright (C) 2009 Kartik Thakore
+#
+# ------------------------------------------------------------------------------
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2.1 of the License, or (at your option) any later version.
+# 
+# This library is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# Lesser General Public License for more details.
+# 
+# You should have received a copy of the GNU Lesser General Public
+# License along with this library; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+#
+# ------------------------------------------------------------------------------
+#
+# Please feel free to send questions, suggestions or improvements to:
+#
+#      Kartik Thakore
+#      kthakore\@cpan.org
+#
+#
+# Memory leaks testing
+
+BEGIN {
+       unshift @INC, 'blib/lib', 'blib/arch';
+}
+
+use strict;
+
+use Test::More;
+
+# This is stolen for Gabor's examples in padre's SDL plugin
+sub surface_leak()
+{
+       use SDL;
+       use SDL::Surface;
+       use SDL::Rect;
+       use SDL::Color;
+
+       my $window = SDL::Surface->new(
+               -width => 640,
+               -height => 480,
+               -depth => 16,
+               -title => 'SDL Demo',
+
+       );
+
+       my $rect = SDL::Rect->new( -height => 10, -width => 20);
+
+       #my $blue = SDL::Color->new(
+       #       -r => 0x00,
+#              -g => 0x00,
+#              -b => 0xff,
+#      );
+#      $window->fill($rect, $blue);
+       $window->update($rect);
+
+}
+
+eval 'use Test::Valgrind';
+plan skip_all => 'Test::Valgrind is required to test your distribution with valgrind' if $@;
+
+surface_leak();
+
+
+