fixed sdlx_fps failures for cpantester machines, new dev release 2.53…

…3_03
PerlGameDev · May 3, 2011 · ee6a7a8 · ee6a7a8
1 parent 43b052c
commit ee6a7a8
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 2 deletions.
diff --git a/CHANGELOG b/CHANGELOG
@@ -6,6 +6,7 @@ Revision history for Perl extension SDL_perl.
 	- Build requires: perl 5.8.1 is good enough for SDL [FROGGS]
 	- SDLx::Music test: 'require threads' instead of 'use threads' and removed Data::Dumper [FROGGS]
 	- SDLx::Text test: width isnt 53 on windows, made test more tolerant [FROGGS]
+	- SDLx::FPS test: testing with 60fps is too much for some systems (cpantester vm's), reduced to 25 [FROGGS]
 
 * 2.532 March 27 2011
 	- Tested and released experimental branch

diff --git a/lib/SDL.pm b/lib/SDL.pm
@@ -54,7 +54,7 @@ our %EXPORT_TAGS = (
 	defaults => $SDL::Constants::EXPORT_TAGS{'SDL/defaults'}
 );
 
-our $VERSION = '2.533_02';
+our $VERSION = '2.533_03';
 $VERSION = eval $VERSION;
 
 print "$VERSION" if ( defined( $ARGV[0] ) && ( $ARGV[0] eq '--SDLperl' ) );

diff --git a/t/sdlx_fps.t b/t/sdlx_fps.t
@@ -19,7 +19,7 @@ if ( !SDL::TestTool->init(SDL_INIT_VIDEO) ) {
 
 can_ok( 'SDLx::FPS', qw( new set get delay framecount rateticks lastticks rate ) );
 
-my $_fps = 60;
+my $_fps = 25;
 
 my $ticks_start = SDL::get_ticks();
 my $fps = SDLx::FPS->new( fps => $_fps );