scripts: Switch to more portable Perl shebang

The default NetBSD package manager is pkgsrc and it installs Perl along other third party programs under custom and configurable prefix. The default prefix for binary prebuilt packages is /usr/pkg, and the Perl executable lands in /usr/pkg/bin/perl. This change switches "/usr/bin/perl" to "/usr/bin/env perl" as it's the most portable solution that should work for almost everybody. Perl's executable is detected automatically. This change switches -w option passed to the executable with more modern "use warnings;" approach. There is no functional change to the default behavior. While there, drop "require 5" from scripts/namespace.pl (Perl from 1994?).

Kamil Rytarowski committed 9 years ago

Commit cb77f0d1 parent 2ea659a24 files · +37 −25Browse files

Unified · Split

24 files

scripts/bootgraph.pl +1 −1
scripts/checkincludes.pl +1 −1
scripts/checkpatch.pl +2 −1
scripts/checkstack.pl +1 −1
scripts/checkversion.pl +1 −1
scripts/cleanfile +2 −1
scripts/cleanpatch +2 −1
scripts/dtc/dt_to_config +1 −1
scripts/export_report.pl +2 −1
scripts/extract-module-sig.pl +2 −1
scripts/extract-sys-certs.pl +2 −1
scripts/extract_xc3028.pl +1 −1
scripts/get_dvb_firmware +1 −1
scripts/get_maintainer.pl +2 −1
scripts/headerdep.pl +1 −1
scripts/headers_check.pl +2 −1
scripts/kconfig/streamline_config.pl +2 −1
scripts/kernel-doc +2 −1
scripts/kernel-doc-xml-ref +2 −1
scripts/markup_oops.pl +1 −1
scripts/namespace.pl +2 −2
scripts/profile2linkerlist.pl +1 −1
scripts/recordmcount.pl +2 −1
scripts/stackdelta +1 −1

scripts/bootgraph.pl+1−1

@@ -1,4 +1,4 @@
1		−#!/usr/bin/perl
	1	+#!/usr/bin/env perl
2	2
3	3	# Copyright 2008, Intel Corporation
4	4	#

scripts/checkincludes.pl+1−1

@@ -1,4 +1,4 @@
1		−#!/usr/bin/perl
	1	+#!/usr/bin/env perl
2	2	#
3	3	# checkincludes: find/remove files included more than once
4	4	#

scripts/checkpatch.pl+2−1

@@ -1,4 +1,4 @@
1		−#!/usr/bin/perl -w
	1	+#!/usr/bin/env perl
2	2	# (c) 2001, Dave Jones. (the file handling bit)
3	3	# (c) 2005, Joel Schopp <jschopp@austin.ibm.com> (the ugly bit)
4	4	# (c) 2007,2008, Andy Whitcroft <apw@uk.ibm.com> (new conditions, test suite)
@@ -6,6 +6,7 @@ · 1 unmodified line
6	6	# Licensed under the terms of the GNU GPL License version 2
7	7
8	8	use strict;
	9	+use warnings;
9	10	use POSIX;
10	11	use File::Basename;
11	12	use Cwd 'abs_path';

scripts/checkstack.pl+1−1

@@ -1,4 +1,4 @@
1		−#!/usr/bin/perl
	1	+#!/usr/bin/env perl
2	2
3	3	# Check the stack usage of functions
4	4	#

scripts/checkversion.pl+1−1

@@ -1,4 +1,4 @@
1		−#! /usr/bin/perl
	1	+#! /usr/bin/env perl
2	2	#
3	3	# checkversion find uses of LINUX_VERSION_CODE or KERNEL_VERSION
4	4	# without including <linux/version.h>, or cases of

scripts/cleanfile+2−1

@@ -1,9 +1,10 @@
1		−#!/usr/bin/perl -w
	1	+#!/usr/bin/env perl
2	2	#
3	3	# Clean a text file -- or directory of text files -- of stealth whitespace.
4	4	# WARNING: this can be a highly destructive operation. Use with caution.
5	5	#
6	6
	7	+use warnings;
7	8	use bytes;
8	9	use File::Basename;
9	10

scripts/cleanpatch+2−1

@@ -1,9 +1,10 @@
1		−#!/usr/bin/perl -w
	1	+#!/usr/bin/env perl
2	2	#
3	3	# Clean a patch file -- or directory of patch files -- of stealth whitespace.
4	4	# WARNING: this can be a highly destructive operation. Use with caution.
5	5	#
6	6
	7	+use warnings;
7	8	use bytes;
8	9	use File::Basename;
9	10

scripts/dtc/dt_to_config+1−1

@@ -1,4 +1,4 @@
1		−#!/usr/bin/perl
	1	+#!/usr/bin/env perl
2	2
3	3	# Copyright 2016 by Frank Rowand
4	4	# Copyright 2016 by Gaurav Minocha

scripts/export_report.pl+2−1

@@ -1,4 +1,4 @@
1		−#!/usr/bin/perl -w
	1	+#!/usr/bin/env perl
2	2	#
3	3	# (C) Copyright IBM Corporation 2006.
4	4	# Released under GPL v2.
@@ -7,6 +7,7 @@ · 2 unmodified lines
7	7	# Usage: export_report.pl -k Module.symvers [-o report_file ] -f *.mod.c
8	8	#
9	9
	10	+use warnings;
10	11	use Getopt::Std;
11	12	use strict;
12	13

scripts/extract-module-sig.pl+2−1

@@ -1,4 +1,4 @@
1		−#!/usr/bin/perl -w
	1	+#!/usr/bin/env perl
2	2	#
3	3	# extract-mod-sig <part> <module-file>
4	4	#
@@ -12,6 +12,7 @@ · 7 unmodified lines
12	12	# -k: Just the key ID
13	13	# -s: Just the crypto signature or PKCS#7 message
14	14	#
	15	+use warnings;
15	16	use strict;
16	17
17	18	die "Format: $0 -[0adnks] module-file >out\n"

scripts/extract-sys-certs.pl+2−1

@@ -1,5 +1,6 @@
1		−#!/usr/bin/perl -w
	1	+#!/usr/bin/env perl
2	2	#
	3	+use warnings;
3	4	use strict;
4	5	use Math::BigInt;
5	6	use Fcntl "SEEK_SET";

scripts/extract_xc3028.pl+1−1

@@ -1,4 +1,4 @@
1		−#!/usr/bin/perl
	1	+#!/usr/bin/env perl
2	2
3	3	# Copyright (c) Mauro Carvalho Chehab <mchehab@infradead.org>
4	4	# Released under GPLv2

scripts/get_dvb_firmware+1−1

@@ -1,4 +1,4 @@
1		−#!/usr/bin/perl
	1	+#!/usr/bin/env perl
2	2	# DVB firmware extractor
3	3	#
4	4	# (c) 2004 Andrew de Quincey

scripts/get_maintainer.pl+2−1

@@ -1,4 +1,4 @@
1		−#!/usr/bin/perl -w
	1	+#!/usr/bin/env perl
2	2	# (c) 2007, Joe Perches <joe@perches.com>
3	3	# created from checkpatch.pl
4	4	#
@@ -10,6 +10,7 @@ · 5 unmodified lines
10	10	#
11	11	# Licensed under the terms of the GNU GPL License version 2
12	12
	13	+use warnings;
13	14	use strict;
14	15
15	16	my $P = $0;

scripts/headerdep.pl+1−1

@@ -1,4 +1,4 @@
1		−#! /usr/bin/perl
	1	+#! /usr/bin/env perl
2	2	#
3	3	# Detect cycles in the header file dependency graph
4	4	# Vegard Nossum <vegardno@ifi.uio.no>

scripts/headers_check.pl+2−1

@@ -1,4 +1,4 @@
1		−#!/usr/bin/perl -w
	1	+#!/usr/bin/env perl
2	2	#
3	3	# headers_check.pl execute a number of trivial consistency checks
4	4	#
@@ -18,6 +18,7 @@ · 13 unmodified lines
18	18	#
19	19	# 3) Check for leaked CONFIG_ symbols
20	20
	21	+use warnings;
21	22	use strict;
22	23	use File::Basename;
23	24

scripts/kconfig/streamline_config.pl+2−1

@@ -1,4 +1,4 @@
1		−#!/usr/bin/perl -w
	1	+#!/usr/bin/env perl
2	2	#
3	3	# Copyright 2005-2009 - Steven Rostedt
4	4	# Licensed under the terms of the GNU GPL License version 2
@@ -42,6 +42,7 @@ · 37 unmodified lines
42	42	# mv config_strip .config
43	43	# make oldconfig
44	44	#
	45	+use warnings;
45	46	use strict;
46	47	use Getopt::Long;
47	48

scripts/kernel-doc+2−1

@@ -1,5 +1,6 @@
1		−#!/usr/bin/perl -w
	1	+#!/usr/bin/env perl
2	2
	3	+use warnings;
3	4	use strict;
4	5
5	6	## Copyright (c) 1998 Michael Zucchi, All Rights Reserved ##

scripts/kernel-doc-xml-ref+2−1

@@ -1,5 +1,6 @@
1		−#!/usr/bin/perl -w
	1	+#!/usr/bin/env perl
2	2
	3	+use warnings;
3	4	use strict;
4	5
5	6	## Copyright (C) 2015 Intel Corporation ##

scripts/markup_oops.pl+1−1

@@ -1,4 +1,4 @@
1		−#!/usr/bin/perl
	1	+#!/usr/bin/env perl
2	2
3	3	use File::Basename;
4	4	use Math::BigInt;

scripts/namespace.pl+2−2

@@ -1,4 +1,4 @@
1		−#!/usr/bin/perl -w
	1	+#!/usr/bin/env perl
2	2	#
3	3	# namespace.pl. Mon Aug 30 2004
4	4	#
@@ -62,7 +62,7 @@ · 57 unmodified lines
62	62	# result.
63	63	#
64	64
65		−require 5; # at least perl 5
	65	+use warnings;
66	66	use strict;
67	67	use File::Find;
68	68

scripts/profile2linkerlist.pl+1−1

@@ -1,4 +1,4 @@
1		−#!/usr/bin/perl
	1	+#!/usr/bin/env perl
2	2
3	3	#
4	4	# Takes a (sorted) output of readprofile and turns it into a list suitable for

scripts/recordmcount.pl+2−1

@@ -1,4 +1,4 @@
1		−#!/usr/bin/perl -w
	1	+#!/usr/bin/env perl
2	2	# (c) 2008, Steven Rostedt <srostedt@redhat.com>
3	3	# Licensed under the terms of the GNU GPL License version 2
4	4	#
@@ -106,6 +106,7 @@ · 101 unmodified lines
106	106	# 9) Move the result back to the original object.
107	107	#
108	108
	109	+use warnings;
109	110	use strict;
110	111
111	112	my $P = $0;

scripts/stackdelta+1−1

@@ -1,4 +1,4 @@
1		−#!/usr/bin/perl
	1	+#!/usr/bin/env perl
2	2
3	3	# Read two files produced by the stackusage script, and show the
4	4	# delta between them.