fixed blit with new rect

[sdlgit/SDL_perl.git] / lib / SDL / Tutorial / Animation.pm

diff --git a/lib/SDL/Tutorial/Animation.pm b/lib/SDL/Tutorial/Animation.pm
index 16f8c84..db02566 100644 (file)
--- a/lib/SDL/Tutorial/Animation.pm
+++ b/lib/SDL/Tutorial/Animation.pm
@@ -31,6 +31,8 @@
 package SDL::Tutorial::Animation;
 
 use strict;
+use warnings;
+
 use SDL;
 use SDL::App;
 use SDL::Rect;
@@ -127,7 +129,6 @@ sub draw_undraw_rect
        $app->update( $args{old_rect} );
        $app->update( $args{rect} );
 }
-END_HERE
 
 1;
 __END__