warning pragma

4 files changed, 17 insertions, 9 deletions

diff --git a/videoadd.pl b/videoadd.pl
index a6b0ed3..5ad6462 100755
--- a/videoadd.pl
+++ b/videoadd.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w -CAL
+#!/usr/bin/perl -CAL
 
 # This program is free software. It comes without any warranty, to the
 # extent permitted by applicable law. You can redistribute it and/or
@@ -9,6 +9,10 @@
 
 $VERSION = "0.3, 01 March 2012";
 
+use warnings;
+use strict;
+use utf8;
+
 use Getopt::Long qw/:config noauto_abbrev no_ignore_case
                             gnu_compat bundling permute nogetopt_compat
                             auto_version auto_help/;
@@ -21,8 +25,6 @@ use File::Spec::Functions;
 use File::Copy qw /move/;
 use Env qw /HOME/;
 use Switch qw /Perl6/;
-use utf8;
-use strict;
 
 ################################################################################
 
diff --git a/videodb-check.pl b/videodb-check.pl
index 4a169d0..d998af4 100755
--- a/videodb-check.pl
+++ b/videodb-check.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w -CAL
+#!/usr/bin/perl -CAL
 
 # This program is free software. It comes without any warranty, to the
 # extent permitted by applicable law. You can redistribute it and/or
@@ -8,12 +8,14 @@
 
 $VERSION = "0.1, 27 November 2011";
 
+use warnings;
+use strict;
+
 use DBI;
 use Pod::Usage;
 use File::Spec::Functions;
 use Cwd;
 use Env qw /HOME/;
-use strict;
 
 ################################################################################
 
diff --git a/videomv.pl b/videomv.pl
index a7f9877..2bc3313 100755
--- a/videomv.pl
+++ b/videomv.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w -CAL
+#!/usr/bin/perl -CAL
 
 # This program is free software. It comes without any warranty, to the
 # extent permitted by applicable law. You can redistribute it and/or
@@ -9,6 +9,9 @@
 
 $VERSION = "0.2, 10 August 2011";
 
+use warnings;
+use strict;
+
 use Getopt::Long qw/:config posix_default no_ignore_case gnu_compat
                             bundling auto_version auto_help/;
 use Pod::Usage;
@@ -18,7 +21,6 @@ use File::Spec::Functions qw /catfile catdir splitdir updir/;
 use File::Copy;
 use Cwd qw /realpath/;
 use Env qw /HOME/;
-use strict;
 
 ################################################################################
 
diff --git a/videorm.pl b/videorm.pl
index 21a9d9d..3acf4f3 100755
--- a/videorm.pl
+++ b/videorm.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w -CAL
+#!/usr/bin/perl -CAL
 
 # This program is free software. It comes without any warranty, to the
 # extent permitted by applicable law. You can redistribute it and/or
@@ -9,6 +9,9 @@
 
 $VERSION = "0.1, 09 January 2012";
 
+use warnings;
+use strict;
+
 use Getopt::Long qw/:config posix_default no_ignore_case gnu_compat
                             bundling auto_version auto_help/;
 use Pod::Usage;
@@ -18,7 +21,6 @@ use File::Spec::Functions qw /catfile catdir splitdir updir/;
 use File::Copy;
 use Cwd qw /realpath/;
 use Env qw /HOME/;
-use strict;
 
 ################################################################################