perl: Don't hardcode interpreter path

This is particularly useful on operating systems that don't ship
Perl as part of the base system (eg. FreeBSD) while still working
just as well as it did before on Linux.

In one case (src/rpc/genprotocol.pl) the interpreter path was
missing altogether.

Signed-off-by: Andrea Bolognani <abologna@redhat.com>

diff --git a/build-aux/augeas-gentest.pl b/build-aux/augeas-gentest.pl
index ece9a8a00d98344cc26ca1c68a22f240304796da..18a1c5bce3546606745cd45ef35935907c8fc79b 100755 (executable)
--- a/build-aux/augeas-gentest.pl
+++ b/build-aux/augeas-gentest.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 #
 # augeas-gentest.pl: Generate an augeas test file, from an
 #                    example config file + test file template

diff --git a/build-aux/check-spacing.pl b/build-aux/check-spacing.pl
index 448acf2345498aeca9aac4613a87fe3dd6cadc01..ca8b434916851748dfaa6731b912be8167babca4 100755 (executable)
--- a/build-aux/check-spacing.pl
+++ b/build-aux/check-spacing.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 #
 # check-spacing.pl: Report any usage of 'function (..args..)'
 # Also check for other syntax issues, such as correct use of ';'

diff --git a/build-aux/mock-noinline.pl b/build-aux/mock-noinline.pl
index eafe20d2e2e8ac0254f264ba1fc29af536aa81fa..c6b40001c51d7b2e5161bf12af0903ad9913ca8e 100644 (file)
--- a/build-aux/mock-noinline.pl
+++ b/build-aux/mock-noinline.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 
 my %noninlined;
 my %mocked;

diff --git a/build-aux/prohibit-duplicate-header.pl b/build-aux/prohibit-duplicate-header.pl
index f0539aeca5afc20bb96e9fc6fe43c5c7a7b2978b..4a2ea656650373a842c14562d5fb70a751c5691d 100644 (file)
--- a/build-aux/prohibit-duplicate-header.pl
+++ b/build-aux/prohibit-duplicate-header.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 
 use strict;
 

diff --git a/docs/genaclperms.pl b/docs/genaclperms.pl
index c0514a022992d001d6bf8b24c6d25a133a06679a..d878321a909d73025c4dea7bed50030d9b937e53 100755 (executable)
--- a/docs/genaclperms.pl
+++ b/docs/genaclperms.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 #
 # Copyright (C) 2013 Red Hat, Inc.
 #

diff --git a/docs/hvsupport.pl b/docs/hvsupport.pl
index edbe19faf61df4477170db3d83452dfa21d5d06f..fc6eb1f152331b80c6dbf52c40cf49a91ca499c7 100755 (executable)
--- a/docs/hvsupport.pl
+++ b/docs/hvsupport.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 
 use strict;
 use warnings;

diff --git a/src/access/genpolkit.pl b/src/access/genpolkit.pl
index eb7069a6d12b70db346e05a2975f14d3aacfebb6..6258fd3a1ee8a5717fe7c1cc615ded3264a4e543 100755 (executable)
--- a/src/access/genpolkit.pl
+++ b/src/access/genpolkit.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 #
 # Copyright (C) 2012-2013 Red Hat, Inc.
 #

diff --git a/src/check-aclperms.pl b/src/check-aclperms.pl
index 5b1b4dbad3b6c6650501c9fdacc844b555f6129f..55b6598313da3e504aa346b5f0e3bfc6f940a1b0 100755 (executable)
--- a/src/check-aclperms.pl
+++ b/src/check-aclperms.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 #
 # Copyright (C) 2013 Red Hat, Inc.
 #

diff --git a/src/check-aclrules.pl b/src/check-aclrules.pl
index 8739cda7308c1c9e93ccb4ffcd3194313387ad5a..5b6c711dc84f1d610089aaaeddb30bee8c94988a 100755 (executable)
--- a/src/check-aclrules.pl
+++ b/src/check-aclrules.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 #
 # Copyright (C) 2013-2014 Red Hat, Inc.
 #

diff --git a/src/check-driverimpls.pl b/src/check-driverimpls.pl
index e32055835a2b3ac386f9b5bc9a4e1ed0b49a7a6c..4c28f2092aed570ada961f1a19ade90d99ab89ad 100755 (executable)
--- a/src/check-driverimpls.pl
+++ b/src/check-driverimpls.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 #
 # Copyright (C) 2013 Red Hat, Inc.
 #

diff --git a/src/check-drivername.pl b/src/check-drivername.pl
index 5c8de0aa11bcf1b7365a9168f0fc973790036cfe..3a62193e3318b1fff5f940c8993963640b94e97e 100755 (executable)
--- a/src/check-drivername.pl
+++ b/src/check-drivername.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 #
 # Copyright (C) 2013 Red Hat, Inc.
 #

diff --git a/src/check-symfile.pl b/src/check-symfile.pl
index d59a213eba08dde6e12e07357b7219835b2b392b..4f88300864b74ab9617779c831e884eedc50c417 100755 (executable)
--- a/src/check-symfile.pl
+++ b/src/check-symfile.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 
 # Copyright (C) 2012-2013 Red Hat, Inc.
 #

diff --git a/src/check-symsorting.pl b/src/check-symsorting.pl
index 81265e04d755a74afd455fba00a3f8de1b700662..51e38bdedb125e916144c28088a4b9a10ad71279 100755 (executable)
--- a/src/check-symsorting.pl
+++ b/src/check-symsorting.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 
 # Copyright (C) 2012-2013 Red Hat, Inc.
 #

diff --git a/src/dtrace2systemtap.pl b/src/dtrace2systemtap.pl
index 19d980564c5df74a24ccd636661c9055cacbad30..92c76a66eb56f83f05c235921d439757a6fe303b 100755 (executable)
--- a/src/dtrace2systemtap.pl
+++ b/src/dtrace2systemtap.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 #
 # Copyright (C) 2011-2012 Red Hat, Inc.
 #

diff --git a/src/rpc/gendispatch.pl b/src/rpc/gendispatch.pl
index e7a48d578a286994e35396ba0df2e079c0529613..fb15cc4849bc585de3cc5f36889edcc7553889a9 100755 (executable)
--- a/src/rpc/gendispatch.pl
+++ b/src/rpc/gendispatch.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 #
 # Copyright (C) 2010-2015 Red Hat, Inc.
 #
@@ -32,6 +32,7 @@
 # Extended by Matthias Bolte <matthias.bolte@googlemail.com>
 
 use strict;
+use warnings;
 
 use Getopt::Long;
 

diff --git a/src/rpc/genprotocol.pl b/src/rpc/genprotocol.pl
index 69d20a344719cb2290a4fa93f0521c78a9283411..6ce268c0241586da91a390662f497906e77e259b 100755 (executable)
--- a/src/rpc/genprotocol.pl
+++ b/src/rpc/genprotocol.pl
@@ -1,3 +1,4 @@
+#!/usr/bin/env perl
 #
 # Generate code for an XDR protocol, optionally applying
 # fixups to the glibc rpcgen code so that it compiles

diff --git a/src/rpc/gensystemtap.pl b/src/rpc/gensystemtap.pl
index 7b80fbf838249d2e2f380acf27111cf115e76591..c0d3435096ed54dc3510f5edcec9a771ae58dc35 100755 (executable)
--- a/src/rpc/gensystemtap.pl
+++ b/src/rpc/gensystemtap.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 #
 # Copyright (C) 2011-2012 Red Hat, Inc.
 #

diff --git a/tests/check-file-access.pl b/tests/check-file-access.pl
index 0c75ae9984b19cb9049e11a61d5268bc8b3b3e90..977a2bc5339538cdb3aeadab9eda7c7b427983e8 100755 (executable)
--- a/tests/check-file-access.pl
+++ b/tests/check-file-access.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 #
 # Copyright (C) 2016 Red Hat, Inc.
 #

diff --git a/tests/oomtrace.pl b/tests/oomtrace.pl
index 6d423e796a84a5db0346ca991e96b0e43a2d82c1..f799262f2c1f48404ad77befb1d5a976783af671 100755 (executable)
--- a/tests/oomtrace.pl
+++ b/tests/oomtrace.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 
 use strict;
 use warnings;