From: Kartik Thakore Date: Sat, 29 Aug 2009 18:42:46 +0000 (-0400) Subject: Merged in master to get version fixes X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bf3e5a1ea8f7a8ad468a9ead80f5f8abb9aa175e;hp=2f0f02b13e2a65ecc315db6c27f7e936be90f002;p=sdlgit%2FSDL_perl.git Merged in master to get version fixes --- diff --git a/Build.PL b/Build.PL index ca0cbec..d0acfc3 100755 --- a/Build.PL +++ b/Build.PL @@ -143,7 +143,7 @@ my $build = SDL::Build->new( xs_files => \%xs, meta_add => { - no_index => { file => [ , ] }, + no_index => { file => [ , , , , ] }, }, dist_author => 'David J. Goehrig ', ); diff --git a/META.yml b/META.yml deleted file mode 100644 index ad9b2bc..0000000 --- a/META.yml +++ /dev/null @@ -1,93 +0,0 @@ ---- -name: SDL_Perl -version: v2.2.2.3 -author: - - 'David J. Goehrig ' -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 --- 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 --- 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 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(); + + +