applied kthakores patch: moving Findin to BEGIN block

PerlGameDev · Mar 1, 2011 · 30c9a64 · 30c9a64
1 parent 68e28d5
commit 30c9a64
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/t/sdlx_text.t b/t/sdlx_text.t
@@ -5,6 +5,7 @@ use SDL::Color;
 use SDL::Surface;
 use SDLx::App;
 BEGIN {
+	use FindBin;
 	use Test::More;
 	use lib 't/lib';
 	use SDL::TestTool;
@@ -19,7 +20,6 @@ use_ok( 'SDLx::Text' );
 my $videodriver = $ENV{SDL_VIDEODRIVER};
 $ENV{SDL_VIDEODRIVER} = 'dummy' unless $ENV{SDL_RELEASE_TESTING};
 
-use FindBin;
 use File::Spec;
 my $score = SDLx::Text->new(
        font => File::Spec->catfile($FindBin::Bin, '..', 'share', 'GenBasR.ttf')

diff --git a/t/ttf.t b/t/ttf.t
@@ -10,6 +10,7 @@ use SDL::Video;
 use SDL::PixelFormat;
 
 BEGIN {
+	use FindBin;
 	use Test::More;
 	use lib 't/lib';
 	use SDL::TestTool;
@@ -25,7 +26,6 @@ use SDL::RWOps;
 use SDL::Version;
 use Encode;
 
-use FindBin;
 use File::Spec;
 my $font_filename = File::Spec->catfile(
         $FindBin::Bin, '..', 'share', 'GenBasR.ttf'