Permalink
Browse files

v2.3_1 release for stupid mistakes

  • Loading branch information...
1 parent 2381b67 commit 7076f704aa5f6a44ec549c39e9681fdc86a5be55 @kthakore kthakore committed Nov 30, 2009
Showing with 15 additions and 10 deletions.
  1. +1 −1 Build.PL
  2. +3 −0 CHANGELOG
  3. +1 −1 lib/SDL.pm
  4. +4 −4 lib/SDL/Tutorial/Images.pm
  5. +2 −2 lib/SDL/Tutorial/Pong.pm
  6. +3 −1 lib/pods/SDL.pod
  7. +1 −1 lib/pods/SDL/Mixer/MixMusic.pod
View
@@ -309,7 +309,7 @@ my %xs = map { $subsystems{$_}{file}{from} => $subsystems{$_}{file}{to} }
keys %subsystems;
my $build = SDL::Build->new(
module_name => 'SDL',
- dist_name => 'SDL_Perl',
+ dist_name => 'SDL',
license => 'lgpl',
dist_version_from => 'lib/SDL.pm',
configure_requires =>
View
@@ -1,5 +1,8 @@
Revision history for Perl extension SDL_perl.
+* 2.3_1
+ - General fixup for CPAN
+
* 2.3_0
- General Memory leaking stopping [kthakore, acme]
- More complete unit testing [kthakore, acme, FROGGS]
View
@@ -54,7 +54,7 @@ sub import {
$self->export_to_level(1, @_);
SDL::Constants->export_to_level(1);
}
-our $VERSION = '2.3_0'; #Development Release
+our $VERSION = '2.3_1'; #Development Release
$VERSION = eval $VERSION;
print "$VERSION" if (defined($ARGV[0]) && ($ARGV[0] eq '--SDLperl'));
@@ -162,7 +162,7 @@ use Pod::ToDemo sub
my @img_files = map { $imagebase . "_$_.gif" }
qw( left center right );
my $demo_source = <<'END_HERE';
-package Walker;
+package SDL::Tutorial::Images::Walker;
sub new
{
@@ -248,7 +248,7 @@ my $pos = SDL::Rect->new(
-y => 240,
);
-my $walker = Walker->new(qw(
+my $walker = SDL::Tutorial::Images::Walker->new(qw(
END_HERE
$demo_source .= join( ' ', @img_files ) . "));" . <<'END_HERE';
@@ -409,7 +409,7 @@ walking?
You'll need several frames, just as in a flip-book. Each frame should be slightly different than the one before it. It's probably handy to encapsulate all of this in a C<Walker> class:
- package Walker;
+ package SDL::Tutorial::Images::Walker;
use SDL::Surface;
@@ -432,7 +432,7 @@ You'll need several frames, just as in a flip-book. Each frame should be slight
To use this class, instantiate an object:
- my $walker = Walker->new( 'frame1.png', 'frame2.png', 'frame3.png' );
+ my $walker = SDL::Tutorial::Images::Walker->new( 'frame1.png', 'frame2.png', 'frame3.png' );
Then call C<next_frame()> within the loop:
View
@@ -1,7 +1,7 @@
use strict;
use warnings;
-package Pong;
+package SDL::Tutorial::Pong::Ball;
#use SDL::Game::Rect;
sub new {
@@ -33,7 +33,7 @@ my $app = SDL::App->new(
);
my $event = SDL::Event->new;
-my $ball = Pong->new;
+my $ball = SDL::Tutorial::Pong::Ball->new;
my $bg_color = SDL::Color->new( -r => 0x00, -g => 0x00, -b => 0x00 );
my $back = SDL::Rect->new( 0, 0, $app->width, $app->height);
View
@@ -1,6 +1,8 @@
+=pod
+
=head1 NAME
-SDL_perl - Simple DirectMedia Layer for Perl
+SDL - Simple DirectMedia Layer for Perl
=head2 CATEGORY
@@ -2,7 +2,7 @@
=head1 NAME
-SDL::MixMusic -- SDL Bindings for structure SDL_MixMusic
+SDL::Mixer::MixMusic - SDL Bindings for structure SDL_MixMusic
=head1 CATEGORY

0 comments on commit 7076f70

Please sign in to comment.