Consistent use of shebang

Inspired by issue-109

Author: Tux

Makefile.PL

@@ -1,3 +1,4 @@
+#!/usr/bin/perl
 # -*- perl -*-
 #
 # $Id$

dbilogstrip.PL

@@ -1,3 +1,4 @@
+#!/usr/bin/perl
 # -*- perl -*-
 my $file = $ARGV[0] || 'dbilogstrip';
 

dbiprof.PL

@@ -1,3 +1,4 @@
+#!/usr/bin/perl
 # -*- perl -*-
 
 my $file = $ARGV[0] || 'dbiprof';

dbiproxy.PL

@@ -1,3 +1,4 @@
+#!/usr/bin/perl
 # -*- perl -*-
 
 my $file = $ARGV[0] || 'dbiproxy';

dbixs_rev.pl

@@ -1,5 +1,7 @@
-#!perl -w
+#!/usr/bin/perl
+
 use strict;
+use warnings;
 
 my $dbixs_rev_file = "dbixs_rev.h";
 

dumpmethods.pl

@@ -1,3 +1,5 @@
+#!/usr/bin/perl
+
 package DBI;
 
 use warnings;

ex/corogofer.pl

@@ -1,4 +1,4 @@
-#!perl
+#!/usr/bin/perl
 
 use strict;
 use warnings;

ex/perl_dbi_nulls_test.pl

@@ -1,4 +1,4 @@
-#! /usr/bin/perl -w
+#!/usr/bin/perl
 
 # This script checks which style of WHERE clause(s) will support both
 # null and non-null values.  Refer to the NULL Values sub-section
@@ -34,6 +34,7 @@
 # any pre-existing table so named.
 
 use strict;
+use warnings;
 use DBI;
 
 # The array represents the values that will be stored in the char column of our table.

ex/unicode_test.pl

@@ -1,3 +1,4 @@
+#!/usr/bin/perl
 #
 # Copyright Martin J. Evans
 #

goferperf.pl

@@ -1,4 +1,4 @@
-#!perl -w
+#!/usr/bin/perl
 # vim:sw=4:ts=8
 $|=1;
 

test.pl

@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl
 
 # $Id$
 #
@@ -27,6 +27,7 @@ BEGIN
 use Config;
 use Getopt::Long;
 use strict;
+use warnings;
 
 our $has_devel_leak = eval {
     local $^W = 0; # silence "Use of uninitialized value $DynaLoader::args[0] in subroutine entry";

xt/dbixha-goperf.pl

@@ -1,4 +1,4 @@
-#!perl -w
+#!/usr/bin/perl
 # vim:sw=4:ts=8
 $|=1;
 

xt/goferdemo.pl

@@ -1,7 +1,8 @@
-#!perl -w
+#!/usr/bin/perl
 $|=1;
 
 use strict;
+use warnings;
 use File::Path;
 use File::Spec;
 use Cwd;

xt/leak.pl

@@ -1,4 +1,5 @@
-#!/usr/bin/env perl
+#!/usr/bin/perl
+
     use strict;
     use warnings;
     use DBI;

xt/tests.pl

@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl
 
 # $Id: test.pl 6734 2006-07-30 22:42:07Z timbo $
 #
@@ -27,6 +27,7 @@ BEGIN
 use Config;
 use Getopt::Long;
 use strict;
+use warnings;
 
 our $has_devel_leak = eval {
     local $^W = 0; # silence "Use of uninitialized value $DynaLoader::args[0] in subroutine entry";