diff options
| -rwxr-xr-x | videoadd.pl | 8 | ||||
| -rwxr-xr-x | videodb-check.pl | 6 | ||||
| -rwxr-xr-x | videomv.pl | 6 | ||||
| -rwxr-xr-x | videorm.pl | 6 |
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; ################################################################################ @@ -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; ################################################################################ @@ -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; ################################################################################ |