From d0be81dba913b51ed5f3d3d8d6bc396680e3b116 Mon Sep 17 00:00:00 2001 From: "H.Merijn Brand - Tux" Date: Tue, 13 Aug 2024 09:35:35 +0200 Subject: [PATCH] Consistent use of shebang Inspired by issue-109 --- Makefile.PL | 1 + dbilogstrip.PL | 1 + dbiprof.PL | 1 + dbiproxy.PL | 1 + dbixs_rev.pl | 4 +++- dumpmethods.pl | 2 ++ ex/corogofer.pl | 2 +- ex/perl_dbi_nulls_test.pl | 3 ++- ex/unicode_test.pl | 1 + goferperf.pl | 2 +- test.pl | 3 ++- xt/dbixha-goperf.pl | 2 +- xt/goferdemo.pl | 3 ++- xt/leak.pl | 3 ++- xt/tests.pl | 3 ++- 15 files changed, 23 insertions(+), 9 deletions(-) diff --git a/Makefile.PL b/Makefile.PL index ef8c47f1..74e10d2e 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -1,3 +1,4 @@ +#!/usr/bin/perl # -*- perl -*- # # $Id$ diff --git a/dbilogstrip.PL b/dbilogstrip.PL index 3bad633a..5ccf119e 100644 --- a/dbilogstrip.PL +++ b/dbilogstrip.PL @@ -1,3 +1,4 @@ +#!/usr/bin/perl # -*- perl -*- my $file = $ARGV[0] || 'dbilogstrip'; diff --git a/dbiprof.PL b/dbiprof.PL index c2204413..f3835ee7 100644 --- a/dbiprof.PL +++ b/dbiprof.PL @@ -1,3 +1,4 @@ +#!/usr/bin/perl # -*- perl -*- my $file = $ARGV[0] || 'dbiprof'; diff --git a/dbiproxy.PL b/dbiproxy.PL index c2d93d0c..0c46d4df 100644 --- a/dbiproxy.PL +++ b/dbiproxy.PL @@ -1,3 +1,4 @@ +#!/usr/bin/perl # -*- perl -*- my $file = $ARGV[0] || 'dbiproxy'; diff --git a/dbixs_rev.pl b/dbixs_rev.pl index 9e83eb10..0973d7c8 100644 --- a/dbixs_rev.pl +++ b/dbixs_rev.pl @@ -1,5 +1,7 @@ -#!perl -w +#!/usr/bin/perl + use strict; +use warnings; my $dbixs_rev_file = "dbixs_rev.h"; diff --git a/dumpmethods.pl b/dumpmethods.pl index b2b9f015..4e21e29d 100644 --- a/dumpmethods.pl +++ b/dumpmethods.pl @@ -1,3 +1,5 @@ +#!/usr/bin/perl + package DBI; use warnings; diff --git a/ex/corogofer.pl b/ex/corogofer.pl index 8baa5873..4b97567c 100644 --- a/ex/corogofer.pl +++ b/ex/corogofer.pl @@ -1,4 +1,4 @@ -#!perl +#!/usr/bin/perl use strict; use warnings; diff --git a/ex/perl_dbi_nulls_test.pl b/ex/perl_dbi_nulls_test.pl index fbef2386..5d4b0352 100644 --- a/ex/perl_dbi_nulls_test.pl +++ b/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. diff --git a/ex/unicode_test.pl b/ex/unicode_test.pl index c4a54072..82814861 100644 --- a/ex/unicode_test.pl +++ b/ex/unicode_test.pl @@ -1,3 +1,4 @@ +#!/usr/bin/perl # # Copyright Martin J. Evans # diff --git a/goferperf.pl b/goferperf.pl index b01306d7..15cfe29c 100755 --- a/goferperf.pl +++ b/goferperf.pl @@ -1,4 +1,4 @@ -#!perl -w +#!/usr/bin/perl # vim:sw=4:ts=8 $|=1; diff --git a/test.pl b/test.pl index 4d011cb0..b3c3cd2c 100755 --- a/test.pl +++ b/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"; diff --git a/xt/dbixha-goperf.pl b/xt/dbixha-goperf.pl index 842a20f7..e890fa83 100755 --- a/xt/dbixha-goperf.pl +++ b/xt/dbixha-goperf.pl @@ -1,4 +1,4 @@ -#!perl -w +#!/usr/bin/perl # vim:sw=4:ts=8 $|=1; diff --git a/xt/goferdemo.pl b/xt/goferdemo.pl index 666dc97d..e12bfce5 100644 --- a/xt/goferdemo.pl +++ b/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; diff --git a/xt/leak.pl b/xt/leak.pl index b60494e9..7b7376c2 100644 --- a/xt/leak.pl +++ b/xt/leak.pl @@ -1,4 +1,5 @@ -#!/usr/bin/env perl +#!/usr/bin/perl + use strict; use warnings; use DBI; diff --git a/xt/tests.pl b/xt/tests.pl index b97791f6..3202a97e 100755 --- a/xt/tests.pl +++ b/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";