Skip to content
This repository
Browse code

Add strict and warnings

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

0 comments on commit a57ab2a

Please sign in to comment.
Something went wrong with that request. Please try again.