Permalink
Browse files

Add strict and warnings

  • Loading branch information...
1 parent d263a76 commit a57ab2a674253e8c76ae65f80000ac4a14c50ad5 @jtpalmer jtpalmer committed Jul 28, 2012
View
1 CHANGELOG
@@ -3,6 +3,7 @@ Revision history for Perl extension SDL
Versioning rule: public releases are even numbers, dev releases are odd. (same like perl dist)
* 2.541_09
+ - t/*: Added strict and warnings where it was missing [jtpalmer]
- SDL::Constants, SDLx::Music::Data, SDL_perl: Added strict and warnings [jtpalmer]
- Fixed license in SDL.pod [jtpalmer]
- SDL::RWops docs: fixed method names so that they match implementation [FROGGS]
View
2 t/config.t
@@ -1,5 +1,7 @@
# t/002_config.t - test config() functionality
+use strict;
+use warnings;
use Test::More tests => 2;
BEGIN { use_ok('SDL::Config'); }
View
1 t/core.t
@@ -1,5 +1,6 @@
#!/usr/bin/perl -w
use strict;
+use warnings;
use Config;
use SDL;
View
1 t/core_audio.t
@@ -7,6 +7,7 @@ BEGIN { # http://wiki.cpantesters.org/wiki/CPANAuthorNotes
}
}
use strict;
+use warnings;
use SDL;
use SDL::Audio;
use SDL::AudioSpec;
View
1 t/core_audiospec.t
@@ -7,6 +7,7 @@ BEGIN { # http://wiki.cpantesters.org/wiki/CPANAuthorNotes
}
}
use strict;
+use warnings;
use threads;
use threads::shared;
use SDL;
View
1 t/core_cd.t
@@ -1,5 +1,6 @@
#!/usr/bin/perl -w
use strict;
+use warnings;
use SDL;
BEGIN {
View
1 t/core_events.t
@@ -1,5 +1,6 @@
#!/usr/bin/perl -w
use strict;
+use warnings;
use SDL;
use SDL::Event;
use SDL::Events;
View
1 t/core_joystick.t
@@ -1,5 +1,6 @@
#!/usr/bin/perl -w
use strict;
+use warnings;
use SDL;
use Test::More;
use SDL::Joystick;
View
1 t/core_mouse.t
@@ -1,5 +1,6 @@
#!/usr/bin/perl -w
use strict;
+use warnings;
use SDL;
use Test::More;
use SDL::Mouse;
View
1 t/core_multi.t
@@ -1,5 +1,6 @@
#!/usr/bin/perl -w
use strict;
+use warnings;
use SDL;
use Test::More;
View
1 t/core_rwops.t
@@ -1,5 +1,6 @@
#!/usr/bin/perl -w
use strict;
+use warnings;
use SDL;
use Test::More;
use SDL::RWOps;
View
1 t/core_surface.t
@@ -9,6 +9,7 @@ BEGIN {
}
use strict;
+use warnings;
use SDL;
use SDL::Config;
use SDL::Surface;
View
1 t/core_timer.t
@@ -9,6 +9,7 @@ BEGIN { # http://wiki.cpantesters.org/wiki/CPANAuthorNotes
use threads;
use threads::shared;
use strict;
+use warnings;
use SDL;
use Test::More;
use SDL::Time;
View
1 t/core_version.t
@@ -1,5 +1,6 @@
#!/usr/bin/perl -w
use strict;
+use warnings;
use SDL;
use SDL::Version;
use Test::More tests => 8;
View
1 t/core_video.t
@@ -1,5 +1,6 @@
#!/usr/bin/perl -w
use strict;
+use warnings;
use SDL;
use SDL::Color;
use SDL::Surface;
View
1 t/core_video_convert_surface.t
@@ -1,4 +1,5 @@
use strict;
+use warnings;
use SDL;
use SDL::Rect;
use SDL::Color;
View
1 t/core_video_gamma.t
@@ -1,5 +1,6 @@
#!/usr/bin/perl -w
use strict;
+use warnings;
use SDL;
use SDL::Color;
use SDL::Surface;
View
2 t/extendingrect.t
@@ -1,4 +1,6 @@
package MyRect;
+use strict;
+use warnings;
use base 'SDL::Rect';
sub new {
View
1 t/image.t
@@ -1,5 +1,6 @@
#!/usr/bin/perl -w
use strict;
+use warnings;
use SDL;
use SDL::Config;
use SDL::Version;
View
2 t/image_xpm_array.t
@@ -1,6 +1,8 @@
#!/usr/bin/perl -Iblib/lib -Iblib -Iblib/arch
#
+use strict;
+use warnings;
use SDL;
use SDL::Config;
use SDL::Rect;
View
1 t/mixer.t
@@ -1,5 +1,6 @@
#!/usr/bin/perl -w
use strict;
+use warnings;
use SDL;
use SDL::Config;
View
1 t/mixer_groups.t
@@ -1,5 +1,6 @@
#!/usr/bin/perl -w
use strict;
+use warnings;
use SDL;
use SDL::Config;
View
1 t/mixer_mixmusic.t
@@ -1,4 +1,5 @@
use strict;
+use warnings;
use SDL;
use SDL::Config;
View
1 t/mixer_music.t
@@ -1,5 +1,6 @@
#!/usr/bin/perl -w
use strict;
+use warnings;
my $audiodriver;
View
1 t/mixer_samples.t
@@ -1,5 +1,6 @@
#!/usr/bin/perl -w
use strict;
+use warnings;
use SDL;
use SDL::Config;
View
1 t/pango.t
@@ -1,5 +1,6 @@
#!/usr/bin/perl -w
use strict;
+use warnings;
use SDL;
use SDL::Config;
use SDL::Color;
View
1 t/sdlgamerect.t
@@ -1,5 +1,6 @@
use Test::More tests => 87;
use strict;
+use warnings;
use SDL;
use_ok('SDLx::Rect');
View
1 t/sdlx_app.t
@@ -2,6 +2,7 @@
# basic testing of SDLx::App
use strict;
+use warnings;
use SDL;
use SDL::Config;
use SDL::Rect;
View
3 t/sdlx_sound.t
@@ -1,5 +1,8 @@
# basic testing of SDLx::Sound
+use strict;
+use warnings;
+
my $audiodriver;
BEGIN {
View
1 t/sdlx_text.t
@@ -1,4 +1,5 @@
use strict;
+use warnings;
use SDL;
use SDL::Config;
use SDL::Color;
View
1 t/smpeg.t
@@ -6,6 +6,7 @@ BEGIN {
}
use strict;
+use warnings;
use SDL;
use SDL::Config;
View
1 t/ttf.t
@@ -1,5 +1,6 @@
#!/usr/bin/perl -w
use strict;
+use warnings;
use SDL;
use SDL::Config;
use SDL::Color;
View
1 t/ttf_font.t
@@ -1,5 +1,6 @@
#!/usr/bin/perl -w
use strict;
+use warnings;
use SDL;
use SDL::Config;

0 comments on commit a57ab2a

Please sign in to comment.