From ee6a7a8913303c47e26da526d19e78df65ac37a7 Mon Sep 17 00:00:00 2001
From: Tobias Leich <email@froggs.de>
Date: Tue, 3 May 2011 09:56:12 +0200
Subject: [PATCH] fixed sdlx_fps failures for cpantester machines, new dev
 release 2.533_03

---
 CHANGELOG    | 1 +
 lib/SDL.pm   | 2 +-
 t/sdlx_fps.t | 2 +-
 3 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/CHANGELOG b/CHANGELOG
index 5897b317..57394fb5 100644
--- 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
index a4d4ee75..997aefa5 100644
--- 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
index 3c32fa11..29d12faa 100644
--- 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 );