PerlGameDev · pinotree · Jan 13, 2011 · Jan 13, 2011 · Mar 1, 2011 · Aug 24, 2011
diff --git a/.travis.yml b/.travis.yml
@@ -0,0 +1,31 @@
+language: perl
+perl:
+  - "5.8"
+  - "5.10"
+  - "5.12"
+  - "5.14"
+  - "5.16"
+  - "5.18"
+
+before_install:
+# install Alien:SDL
+  - sudo apt-get install automake
+  - git clone https://github.com/PerlGameDev/Alien-SDL
+  - cd Alien-SDL
+  - cat ./cpan-deps | cpanm --sudo --notest
+  - perl ./Build.PL --travis
+  - sudo ./Build install
+  - prove -v
+  - cd ..
+# success!!
+
+# install SDL_Perl
+install:
+  - cpanm --sudo --notest Test::Most Tie::Simple
+  - perl ./Build.PL
+  - sudo ./Build install
+
+script: prove -v
+
+notifications:
+  irc: irc.perl.org#sdl
diff --git a/Build.PL b/Build.PL
@@ -569,7 +569,7 @@ my $build = $package->new(
 	dist_version_from  => 'lib/SDL.pm',
 	configure_requires => {
 		'ExtUtils::CBuilder' => '0.260301',
-		'Alien::SDL'         => '1.426',
+		'Alien::SDL'         => '1.444',
 		'File::Find'         => '0',
 		'File::ShareDir'     => '1.0',
 		'Tie::Simple'        => '0',
@@ -579,7 +579,7 @@ my $build = $package->new(
 		'Test::Simple'      => '0.88',
    		'Capture::Tiny'     => '0',
 		'Test::Most'        => '0.21',
-		'Alien::SDL'        => '1.426',
+		'Alien::SDL'        => '1.444',
 		'File::Find'        => '0',
 		'File::ShareDir'    => '1.0',
 		'Tie::Simple'       => '0',
@@ -606,7 +606,7 @@ my $build = $package->new(
 	#create_readme => 1, ### make sense only if there is some POD doc in the file specified by dist_version_from
 	meta_merge => {
 		resources => {
-			bugtracker => 'http://sdlperl.ath.cx/projects/SDLPerl',
+			bugtracker => 'http://github.com/PerlGameDev/SDL/issues',
 			repository => 'http://github.com/PerlGameDev/SDL'
 		}
 	},

diff --git a/CHANGELOG b/CHANGELOG
@@ -2,7 +2,37 @@ Revision history for Perl extension SDL_perl.
 
 Versioning rule: public releases are even numbers, dev releases are odd. (same like perl dist)
 
-* 2.537_02 Feb 13 2012
+* 2.544 May 14 2014
+	- Updated Alien::SDL's version we depend on to get an OpenBSD/pthread fix [FROGGS]
+	- Fix segfault in cleanup of MixChunks on windows [FROGGS]
+	- Adjusting test for SDL_gfx >= 2.0.24 [FROGGS]
+
+* 2.540 May 26 2012
+	- Removed all non-pod changes introduced in 2.538 [jtpalmer]
+	- Fixed bugtracker link [FROGGS]
+	- Added SDL::Platform pod [pktm]
+
+* 2.538 May 22 2012
+	- Pod updates [mig0]
+	- SDLx::App made the docs a lot better [Blaizer]
+	- SDLx::App changed around shortcut names in the constructor [Blaizer]
+	- SDLx::App added and improved parameters of the constructor, see docs [Blaizer]
+	- SDLx::App updated methods resize, title, icon, error, show_cursor, grab_input [Blaizer]
+	- SDLx::App fullscreen method works better [Blaizer]
+	- SDLx::App new init method does our initializing right [Blaizer]
+	- SDLx::App new set_video_mode method does set_video_mode for SDLx::App [Blaizer]
+	- SDLx::App new screen_size method returns the user's screen size [Blaizer]
+	- SDLx::App warp method renamed to warp_cursor, attribute renamed to gl_attribute [Blaizer]
+	- SDLx::App fix to return the user's resolution to normal when a fullscreen app closes [FROGGS]
+	- SDLx::App removed delay method and deprecated get_ticks [Blaizer]
+	- SDLx::Controller removed eoq, its action is on by default and implemented by stop_handler [Blaizer]
+	- SDLx::Controller made the docs a lot better, even proofread them [Blaizer]
+	- SDLx::Controller pause works by stopping the app [Blaizer]
+	- SDLx::Controller added stopped and paused methods to tell what the app is doing [Blaizer]
+	- SDLx::Controller added max_t param, by default slows down apps going at less than 10 FPS [Blaizer]
+	- SDLx::Controller added time and sleep methods to replace get_ticks and delay [Blaizer]
+	- SDLx::Controller added some tests for pausing and events [Blaizer]
+	- SDLx::Controller removed current_time parameter [Blaizer]
 	- t/core_cd.t: gnu hurd 0.3 handles devices like cdrom strange (skipping tests) [FROGGS]
 	- t/sdlx_fps.t: seems better to try to get 5 fps (slow vm's) [FROGGS]
 	- SDLx::Controller::Interface: weaken tests [FROGGS]

diff --git a/COPYING b/COPYING
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.537_02';
+our $VERSION = '2.544';
 $VERSION = eval $VERSION;
 
 print "$VERSION" if ( defined( $ARGV[0] ) && ( $ARGV[0] eq '--SDLperl' ) );

diff --git a/lib/pods/SDL.pod b/lib/pods/SDL.pod
@@ -88,7 +88,7 @@ C<SDL::quit> doesn't return any values.
 
  my $flags = SDL::was_init( $flags );
 
-C<SDL::was_init> allows you to see which SDL subsytems have been initialized.
+C<SDL::was_init> allows you to see which SDL subsystems have been initialized.
 The C<$flags> tell C<SDL::was_init> which subsystems to check, and are taken in the same way as C<SDL::init>.
 
 C<SDL::was_init> returns a mask of the initialized subsystems it checks.

diff --git a/lib/pods/SDL/Audio.pod b/lib/pods/SDL/Audio.pod
@@ -189,7 +189,7 @@ Converts audio data to a desired audio format.
 
 C<convert> takes as first parameter C<cvt>, which was previously initialized. Initializing a C<SDL::AudioCVT> is a two step process. 
 First of all, the structure must be created via C<SDL::AudioCVT-E<gt>build> along with source and destination format parameters. Secondly, 
-the C<data> and C<len> fields must be setup. C<data> should point to the audio data buffer beeing source and destination at 
+the C<data> and C<len> fields must be setup. C<data> should point to the audio data buffer being source and destination at 
 once and C<len> should be set to the buffer length in bytes. Remember, the length of the buffer pointed to by buf should be 
 C<len*len_mult> bytes in length.
 
@@ -256,7 +256,7 @@ Example:
  # And now we're ready to convert
  SDL::Audio::convert($wav_cvt, $wav_buf, $wav_len);
 
- # We can freeto original WAV data now
+ # We can free original WAV data now
  SDL::Audio::free_wav($wav_buf);
 
 B<TODO>: What to do with it? How to use callback? See http://www.libsdl.org/cgi/docwiki.cgi/SDL_ConvertAudio

diff --git a/lib/pods/SDL/AudioSpec.pod b/lib/pods/SDL/AudioSpec.pod
@@ -29,7 +29,7 @@ Core, Audio, Structure
      # do something here
  }
 
-=head1 DESCIPTION
+=head1 DESCRIPTION
 
 The C<SDL::AudioSpec> structure is used to describe the format of some audio data. This structure is used by C<SDL::Audio::open_audio> 
 and C<SDL::Audio::load_wav>. 

diff --git a/lib/pods/SDL/CD.pod b/lib/pods/SDL/CD.pod
@@ -170,7 +170,7 @@ Current track on the CD;
 
  my $track =  $CD->track($number);
 
-Retrives track description of track $number in CD. See L<SDL::CDTrack>.
+Retrieves track description of track $number in CD. See L<SDL::CDTrack>.
 
 =head2 FRAMES_TO_MSF
 

diff --git a/lib/pods/SDL/Cookbook/OpenGL.pod b/lib/pods/SDL/Cookbook/OpenGL.pod
@@ -11,9 +11,9 @@ Cookbook
 
 =head1 DESCRIPTION
 
-As of release 2.5 SDL no longer maintains it's own bindings of openGL. Support for openGL has been moved over to a more mature implementation. 
+As of release 2.5 SDL no longer maintains it's own bindings of OpenGL. Support for OpenGL has been moved over to a more mature implementation. 
 
-This implementation is the POGL project. L<OpenGL> is faster and more complete; and works with SDL seemlessly.
+This implementation is the POGL project. L<OpenGL> is faster and more complete; and works with SDL seamlessly.
 
 =head2 EXAMPLE
 
@@ -37,7 +37,7 @@ You can use OpenGL as needed here.
 	$| = 1;
 	$WIDTH = 1024;
 	$HEIGHT = 768;
-	$SDLAPP = SDLx::App->new(title => "Opengl App", width => $WIDTH, height => $HEIGHT, gl => 1);
+	$SDLAPP = SDLx::App->new(title => "OpenGL App", width => $WIDTH, height => $HEIGHT, gl => 1);
 	$SDLEVENT = SDL::Event->new;
 
 SDLx::App can start an OpenGL application with the parameter gl => 1.
@@ -48,7 +48,7 @@ SDLx::App can start an OpenGL application with the parameter gl => 1.
 	gluPerspective(60, $WIDTH / $HEIGHT, 1, 1000);
 	glTranslatef(0, 0, -20);
 
-Above we enable GL and set the correct prespective
+Above we enable GL and set the correct perspective
 
 	while (1) {
 	  &handlepolls;

diff --git a/lib/pods/SDL/Cookbook/PDL.pod b/lib/pods/SDL/Cookbook/PDL.pod
@@ -38,7 +38,7 @@ Create a normal $piddle with zeros, byte format and the Bpp x width x height dim
 
    my $pointer = $piddle->get_dataref();
 
-Here is where we get the acutal data the piddle is pointing to. We will have SDL create a new surface from this function.
+Here is where we get the actual data the piddle is pointing to. We will have SDL create a new surface from this function.
 
    my $surface = SDL::Surface->new_from( $pointer, $width, $height, 32,
         $width * $bytes_per_pixel );
@@ -48,7 +48,7 @@ Using the same dimensions we create the surface using new_form. The width *  Bpp
    warn "Made surface of $width, $height and ". $surface->format->BytesPerPixel;
    return ( $piddle, $surface );
 
-Finally make sure that the surface acutally has the correct dimensions we gave.
+Finally make sure that the surface actually has the correct dimensions we gave.
 
 B<NOTE:> $surface->format->BytesPerPixel must return 1,2,3,4. !!
 
@@ -79,7 +79,7 @@ When blitting the new surface check for the return value to see if there has bee
 
     die "Could not blit: " . SDL::get_error() if ( $b == -1 );
 
-If the error message is 'Blit combination not supported' that means that the BPP is incorrect or incosistent with the dimensions.
+If the error message is 'Blit combination not supported' that means that the BPP is incorrect or inconsistent with the dimensions.
 After that a simple update_rect will so your new surface on the screen.
 
 =head1 AUTHORS

diff --git a/lib/pods/SDL/Deprecated.pod b/lib/pods/SDL/Deprecated.pod
@@ -28,7 +28,7 @@ C<min_t> will limit apps to a framerate of 60 by default.
 
 =item SDLx::App
 
-C<SDLx::App::loop()> is depreceated.
+C<SDLx::App::loop()> is deprecated.
 
 =back
 
@@ -56,7 +56,7 @@ Has drastically changed, and is still volatile.
 
 =item SDL::App 
 
-SDL::App has migrated to SDLx::App namespace. The reason for this is because it is an extenstion and not a 1:1 XS/Constant Module to the c library.
+SDL::App has migrated to SDLx::App namespace. The reason for this is because it is an extension and not a 1:1 XS/Constant Module to the c library.
 
 =item SDL::Game::Rect 
 

diff --git a/lib/pods/SDL/Event.pod b/lib/pods/SDL/Event.pod
@@ -57,7 +57,7 @@ and it is then up to the application to process the information stored with them
 =head2	new
 
 C<new> creates an empty event-object, which can be used store information. 
-Either by calling C<poll_event($event)> that transferes one event from the queue into our object 
+Either by calling C<poll_event($event)> that transfers one event from the queue into our object 
 or by setting all the needed data manually in order to push the event to the queue.
 
  use SDL::Event;
@@ -105,7 +105,7 @@ L<SDL_JOYAXISMOTION|/Joystick_axis_events> - Joystick axis motion event structur
 
 =item *
 
-L<SDL_JOYBALLMOTION|/Joystrick_trackball_events> - Joystick trackball motion event structure 
+L<SDL_JOYBALLMOTION|/Joystick_trackball_events> - Joystick trackball motion event structure 
 
 =item *
 
@@ -361,7 +361,7 @@ This is currently only implemented on Windows and Linux/Unix-alikes.
 
 When a mouse button press or release is detected, the number of the button pressed (from 1 to 255, 
 with 1 usually being the left button and 2 the right) is placed into C<button_button>. The position of the mouse 
-when this event occured is stored in the C<button_x> and the C<button_y> fields. Like a keyboard event,
+when this event occurred is stored in the C<button_x> and the C<button_y> fields. Like a keyboard event,
 information on whether the event was a press or a release event is stored in both the C<button_type> 
 and C<button_state> fields, but this should be obvious.
 
@@ -395,7 +395,7 @@ The field C<jaxis_which> is the index of the joystick that reported the event.
 
 =head3 jaxis_axis
 
-The C<jaxis_axis> is the index of the axis (for a more detailed explaination see the Joystick section).
+The C<jaxis_axis> is the index of the axis (for a more detailed explanation see the Joystick section).
 
 =head3 jaxis_value
 
@@ -482,7 +482,7 @@ C<SDL_HAT_LEFTDOWN>
 
 =back
 
-=head2 Joystrick trackball events
+=head2 Joystick trackball events
 
 A C<SDL_JOYBALLMOTION> event occurs when a user moves a trackball on the joystick.
 

diff --git a/lib/pods/SDL/Events.pod b/lib/pods/SDL/Events.pod
@@ -218,7 +218,7 @@ Checks the event queue for messages and optionally returns them.
 
 	my $num_peep_events = SDL::Events::peep_events($event, 127, SDL_PEEKEVENT, SDL_ALLEVENTS);
 
-If action is SDL_ADDEVENT, up to numevents events will be added to the back of the event queue.
+If action is SDL_ADDEVENT, up to num_events events will be added to the back of the event queue.
 
 If action is SDL_PEEKEVENT, up to numevents events at the front of the event queue, matching mask, will be returned and will not be removed from 
 the queue.
@@ -466,7 +466,7 @@ translation incurs a slight overhead for each keyboard event and is therefore di
 the unicode member of the L<SDL::Event::key_sym|SDL::Event/"key_sym"> provided structure will be then contain the corresponding character code, or 
 otherwise zero.
 
-A value of 1 for enabling, 0 for disabling and -1 for unchanged. -1 is usefull for querying the current translation mode.
+A value of 1 for enabling, 0 for disabling and -1 for unchanged. -1 is useful for querying the current translation mode.
 
 Only key press events will be translated not release events.
 
@@ -487,7 +487,7 @@ Return 0 on success and -1 on fail.
 
 =head2 get_mouse_state 
 
-Retrives the current state of the mouse
+Retrieves the current state of the mouse
 
   my ($mask,$x,$y) = @{ SDL::Events::get_mouse_state( ) };
 
@@ -503,7 +503,7 @@ The current button state is returned as a button $bitmask, which can be tested u
 
 =head2 get_relative_mouse_state 
 
-Retrives the current relative state of the mouse
+Retrieves the current relative state of the mouse
 
   my ($mask,$x,$y) = @{ SDL::Events::get_mouse_state( ) };
 
@@ -513,7 +513,7 @@ Retrives the current relative state of the mouse
 
   print 'Button Middle pressed' if ($mask & SDL_BUTTON_MMASK);  
 
-  print $x.','.$y; # this is relative to the last postion of the mouse
+  print $x.','.$y; # this is relative to the last position of the mouse
 
 The current button state is returned as a button $bitmask, which can be tested using the the above constants 
 

diff --git a/lib/pods/SDL/GFX/Framerate.pod b/lib/pods/SDL/GFX/Framerate.pod
@@ -41,8 +41,8 @@ Get the currently set framerate of the manager.
 
  SDL::GFX::Framerate::delay($fps);
 
-Generate a delay to accomodate currently set framerate. Call once in thegraphics/rendering loop. 
-If the computer cannot keep up with the rate (i.e.drawing too slow), the delay is zero and the delay interpolation is reset.
+Generate a delay to accommodate the currently set framerate. Call once in the graphics/rendering loop. 
+If the computer cannot keep up with the rate (i.e. drawing too slow), the delay is zero and the delay interpolation is reset.
 
 =head1 AUTHORS
 

diff --git a/lib/pods/SDL/GFX/Primitives.pod b/lib/pods/SDL/GFX/Primitives.pod
@@ -9,7 +9,7 @@ GFX
 
 =head1	DESCRIPTION
 
-All functions take an SDL::Surface object as first parameter. This can be a new surface that will be blittet afterwads, can be an surface 
+All functions take an SDL::Surface object as first parameter. This can be a new surface that will be blitted afterwards, can be an surface 
 obtained by L<SDL::Video::set_video_mode|SDL::Video/"set_video_mode"> or can be an L<SDLx::App>.
 
 The C<color> values for the C<_color> functions are C<0xRRGGBBAA> (32bit), even if the surface uses e. g. 8bit colors.
@@ -30,7 +30,7 @@ Draws a pixel at point C<x>/C<$y>. You can pass the color by C<0xRRGGBBAA> or by
 
  my $surface = SDL::Video::set_video_mode(640, 480, 32, SDL_SWSURFACE);
 
- SDL::GFX::Primitives::pixel_color($surface, 2, 2, 0xFF0000FF);             # red pixcel
+ SDL::GFX::Primitives::pixel_color($surface, 2, 2, 0xFF0000FF);             # red pixel
  SDL::GFX::Primitives::pixel_RGBA( $surface, 4, 4, 0x00, 0xFF, 0x00, 0xFF); # green pixel
 
 =head2	hline

diff --git a/lib/pods/SDL/MPEG.pod b/lib/pods/SDL/MPEG.pod
@@ -15,7 +15,7 @@ TODO
 
 =head1 DESCRIPTION
 
-C<SDL::MPEG> provides an interface to quering the status
+C<SDL::MPEG> provides an interface to querying the status
 of a SMPEG stream.  
 
 =head2 METHODS 
@@ -48,7 +48,7 @@ C<SDL::MPEG::offset> returns the offset into the clip in bytes
 
 =item *
 
-C<SDL::MPEG::frame> returns the offset into the clip in fames 
+C<SDL::MPEG::frame> returns the offset into the clip in frames 
 
 =item *
 

diff --git a/lib/pods/SDL/Mixer.pod b/lib/pods/SDL/Mixer.pod
@@ -163,7 +163,7 @@ B<Note>: Only available for SDL_mixer >= 1.2.10
 
  SDL::Mixer::quit();
 
-This function unloads the liraries previously loaded with L<init()|/init>.
+This function unloads the libraries previously loaded with L<init()|/init>.
 
 B<Note>: Only available for SDL_mixer >= 1.2.10
 

diff --git a/lib/pods/SDL/Mixer/Channels.pod b/lib/pods/SDL/Mixer/Channels.pod
@@ -17,7 +17,7 @@ Mixer
 
  my $ret = SDL::Mixer::Channels::allocate_channels( $number_of_channels );
 
-Dynamically change the number of channels managed by the mixer. If decreasing the number of channels, the upper channels arestopped.
+Dynamically change the number of channels managed by the mixer. If decreasing the number of channels, the upper channels are stopped.
 This function returns the new number of allocated channels.
 
 Example
@@ -142,7 +142,7 @@ Example 2:
 
  my $playing = SDL::Mixer::Channels::playing( $channel );
 
-Returns C<1> if the given channel is playing sound, otherwise C<0>. It does'nt check if the channel is paused.
+Returns C<1> if the given channel is playing sound, otherwise C<0>. It doesn't check if the channel is paused.
 
 B<Note>: If you pass C<-1> you will get the number of playing channels.