Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Changelog updated, a little misplaced whitespace removed. Controller …

…possibly fixed.
  • Loading branch information...
commit 64be059343e7021d16700903c2c87b1d60d6f696 1 parent f23b4c9
@Blaizer Blaizer authored
View
9 CHANGELOG
@@ -1,12 +1,13 @@
Revision history for Perl extension SDL_perl.
* 2.517
- - Fix for 2 tests: interface, layermanager
+ - Major refactor of SDLx::Controller [Blaizer]
+ - Fix for 2 tests: interface, layermanager
- Refactor SDLx::Surface code [Blaizer]
- Gave SDL::Mixer::Init same signature for varying versions of SDL_Mixer [kthakore]
* 2.516
- - Fix for test plan in t/sdlx_sound [FROGGS]
+ - Fix for test plan in t/sdlx_sound [FROGGS]
* 2.515
- Added preliminary SDLx::Sound [rflipo]
@@ -69,14 +70,14 @@ Revision history for Perl extension SDL_perl.
- Fixes for exec.h stack dumper during testing
- Added version guard for SDLx::GFX [FROGGS]
- Modified SDLx::Sprite to inherit from SDLx::Surface
-
+
* 2.501 July 10 2010
- Fixes tests for SDLx::TTF and SDL::Surface [FROGGS, kthakore]
- Makes ptr to pixels READONLY for some safety
- *nix users gets a stack dumper of segfault
* 2.500 July 9 2010
-
+
- Fixed Memory Leaks due to perl desturct level
- Fixed Memory leak in SDL::Mixer::Music
- Fixed the test on SDLx::Sprite
View
9 lib/SDLx/Controller.pm
@@ -115,7 +115,8 @@ sub _event {
my ($self) = shift;
while ( SDL::Events::poll_event( $_event{ refaddr $self} ) ) {
SDL::Events::pump_events();
- foreach my $event_handler ( values %{ $_event_handlers{ refaddr $self} } ) {
+ my @event_handlers = values %{ $_event_handlers{ refaddr $self} };
+ foreach my $event_handler ( @event_handlers ) {
$event_handler->( $_event{ refaddr $self}, $self );
}
}
@@ -123,14 +124,16 @@ sub _event {
sub _move {
my ($self, $move_portion, $t) = @_;
- foreach my $move_handler ( values %{ $_move_handlers{ refaddr $self} } ) {
+ my @move_handlers = values %{ $_move_handlers{ refaddr $self} };
+ foreach my $move_handler ( @move_handlers ) {
$move_handler->( $move_portion, $self, $t );
}
}
sub _show {
my ($self, $delta_ticks) = @_;
- foreach my $event_handler ( values %{ $_show_handlers{ refaddr $self} } ) {
+ my @show_handlers = values %{ $_show_handlers{ refaddr $self} };
+ foreach my $event_handler ( @show_handlers ) {
$event_handler->( $delta_ticks, $self );
}
}
View
2  lib/pods/SDL/Deprecated.pod
@@ -11,7 +11,7 @@ Core
=head1 RELEASES
-=head2 2.5xx
+=head2 2.517
Major changes to C<SDLx::Controller>.
Please sign in to comment.
Something went wrong with that request. Please try again.