No shebangs in tests.

perl5-dbi · Jan 21, 2015 · d7bf9bd · d7bf9bd
1 parent 484d1f0
commit d7bf9bd
Show file tree

Hide file tree

Showing 59 changed files with 11 additions and 122 deletions.
diff --git a/eg/bug14979.pl b/eg/bug14979.pl
@@ -1,7 +1,9 @@
-#! /usr/bin/perl -wT
+#! /usr/bin/perl
 
 use strict;
-use DBI();
+use warnings;
+
+use DBI;
 
 MAIN: {
 	$ENV{'DBI_DSN'} ||= 'dbi:mysql:dbname=mysql:mysql_server_prepare=1';

diff --git a/t/00base.t b/t/00base.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/05dbcreate.t b/t/05dbcreate.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/10connect.t b/t/10connect.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/15reconnect.t b/t/15reconnect.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/20createdrop.t b/t/20createdrop.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/25lockunlock.t b/t/25lockunlock.t
@@ -1,15 +1,11 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
+
 use Test::More;
 use DBI;
 use lib 't', '.';
 require 'lib.pl';
 
-#
-#   Make -w happy
-#
 use vars qw($table $test_dsn $test_user $test_password);
 
 my $dbh;

diff --git a/t/29warnings.t b/t/29warnings.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/30insertfetch.t b/t/30insertfetch.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/31insertid.t b/t/31insertid.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/32insert_error.t b/t/32insert_error.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/35limit.t b/t/35limit.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/35prepare.t b/t/35prepare.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/40bindparam.t b/t/40bindparam.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/40bindparam2.t b/t/40bindparam2.t
@@ -1,10 +1,8 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 
 use Test::More;
-use DBI ();
+use DBI;
 use vars qw($table $test_dsn $test_user $test_password);
 use lib 't', '.';
 require 'lib.pl';

diff --git a/t/40blobs.t b/t/40blobs.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/40catalog.t b/t/40catalog.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/40keyinfo.t b/t/40keyinfo.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/40listfields.t b/t/40listfields.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/40nulls.t b/t/40nulls.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/40nulls_prepare.t b/t/40nulls_prepare.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/40numrows.t b/t/40numrows.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/40server_prepare.t b/t/40server_prepare.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/40server_prepare_error.t b/t/40server_prepare_error.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/40types.t b/t/40types.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/41bindparam.t b/t/41bindparam.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/41blobs_prepare.t b/t/41blobs_prepare.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/42bindparam.t b/t/42bindparam.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/43count_params.t b/t/43count_params.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/50chopblanks.t b/t/50chopblanks.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/50commit.t b/t/50commit.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/51bind_type_guessing.t b/t/51bind_type_guessing.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/52comment.t b/t/52comment.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/53comment.t b/t/53comment.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/55utf8.t b/t/55utf8.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/60leaks.t b/t/60leaks.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/65segfault.t b/t/65segfault.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/65types.t b/t/65types.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/70takeimp.t b/t/70takeimp.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/71impdata.t b/t/71impdata.t
@@ -1,13 +1,15 @@
-#!/usr/bin/perl
-$| = 1;
-
 use strict;
+use warnings;
+
+use Test::More;
 use DBI;
 use lib 't', '.';
 require 'lib.pl';
 
 use Test::More;
 
+$| = 1;
+
 use vars qw($test_dsn $test_user $test_password);
 
 my $dbh;

diff --git a/t/75supported_sql.t b/t/75supported_sql.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/76multi_statement.t b/t/76multi_statement.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/80procs.t b/t/80procs.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/81procs.t b/t/81procs.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/85init_command.t b/t/85init_command.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/86_bug_36972.t b/t/86_bug_36972.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/87async.t b/t/87async.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/88async-multi-stmts.t b/t/88async-multi-stmts.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/89async-method-check.t b/t/89async-method-check.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/90no-async.t b/t/90no-async.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/99_bug_server_prepare_blob_null.t b/t/99_bug_server_prepare_blob_null.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/lib.pl b/t/lib.pl
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/manifest.t b/t/manifest.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 BEGIN {
   unless ($ENV{RELEASE_TESTING}) {
     require Test::More;

diff --git a/t/mysql.dbtest b/t/mysql.dbtest
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/rt25389-bin-case.t b/t/rt25389-bin-case.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/rt50304-column_info_parentheses.t b/t/rt50304-column_info_parentheses.t
@@ -1,4 +1,3 @@
-#!/usr/bin/perl
 use strict;
 use warnings;
 

diff --git a/t/rt83494-quotes-comments.t b/t/rt83494-quotes-comments.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 # Test special characters inside comments
 # http://bugs.debian.org/311040
 # http://bugs.mysql.com/27625

diff --git a/t/rt86153-reconnect-fail-memory.t b/t/rt86153-reconnect-fail-memory.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 

diff --git a/t/rt91715.t b/t/rt91715.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;