perl: use warnings, not the -w flag

Author: carandraug

miscellaneous/LAT59_creator.pl

@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
-use 5.010;                                  # Use Perl 5.10
-use strict;                                 # Enforce some good programming rules
+#!/usr/bin/perl
+use 5.010;                      # Use Perl 5.10
+use strict;                     # Enforce some good programming rules
+use warnings;                   # Replacement for the -w flag, but lexically scoped
 use Local::LAT_processor;                   # Module to make PDF of the labels for different models
 
 my $format  = "LAT59";                      # page format name

miscellaneous/LAT7_creator.pl

@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
-use 5.010;                                  # Use Perl 5.10
-use strict;                                 # Enforce some good programming rules
+#!/usr/bin/perl
+use 5.010;                      # Use Perl 5.10
+use strict;                     # Enforce some good programming rules
+use warnings;                   # Replacement for the -w flag, but lexically scoped
 use Local::LAT_processor;                   # Module to make PDF of the labels for different models
 
 my $format  = "LAT7";                      # page format name

sysadmin/htpasswd_new.cgi

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 ## Copyright (C) 2010 Carnë Draug <[email protected]>
 ##
 ## This program is free software; you can redistribute it and/or modify
@@ -14,7 +14,8 @@
 ## You should have received a copy of the GNU Affero General Public License
 ## along with this program; if not, see <http://www.gnu.org/licenses/>.
 
-use strict; # Enforce some good programming rules
+use strict;                     # Enforce some good programming rules
+use warnings;                   # Replacement for the -w flag, but lexically scoped
 use File::Temp qw(tempfile);
 use CGI qw/:standard :cgi/;
 

sysadmin/label-remover.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 ## Copyright (C) 2010 Carnë Draug <[email protected]>
 ##
 ## This program is free software; you can redistribute it and/or modify
@@ -14,7 +14,8 @@
 ## You should have received a copy of the GNU Affero General Public License
 ## along with this program; if not, see <http://www.gnu.org/licenses/>.
 
-use strict;
+use strict;                     # Enforce some good programming rules
+use warnings;                   # Replacement for the -w flag, but lexically scoped
 
 my $dir = "/var/www/labels/temp"; #defines directory to check
 my $file;
@@ -32,4 +33,3 @@
   }
 }
 closedir(DIR);
-exit;