Permalink
Browse files

Merge branch 'experimental'

  • Loading branch information...
2 parents 6f97bdf + 5cffd32 commit a1972d19d5261c98ca1738af8135a450b28e7666 @kthakore kthakore committed Aug 30, 2009
Showing with 88 additions and 103 deletions.
  1. +2 −1 .gitignore
  2. +1 −1 Build.PL
  3. +0 −93 META.yml
  4. +11 −7 README
  5. +1 −1 lib/SDL.pm
  6. +73 −0 t/surfaceML.t
View
@@ -6,4 +6,5 @@ lib/SDL/Config.pm
SDL/
SDL_perl.c
SDL_perl.xs
-stage
+stage
+META.yml
View
@@ -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>',
);
View
@@ -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
View
18 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:
View
@@ -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'));
View
@@ -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();
+
+
+

0 comments on commit a1972d1

Please sign in to comment.