From d5845d375e2f07fa27a3d9f34407de380b7dc7d0 Mon Sep 17 00:00:00 2001 From: Mathieu Parent Date: Mon, 24 Sep 2018 13:59:53 +0200 Subject: [PATCH] Always use /usr/bin/env to call Perl ... to support systems where perl is not installed in /usr/bin/. Signed-off-by: Mathieu Parent --- ctdb/utils/nagios/check_ctdb | 2 +- docs-xml/scripts/indent-smb.conf.pl | 2 +- examples/LDAP/ol-schema-migrate.pl | 2 +- examples/logon/genlogon/genlogon.pl | 2 +- examples/logon/mklogon/mklogon.pl | 2 +- examples/misc/adssearch.pl | 2 +- examples/misc/check_multiple_LDAP_entries.pl | 2 +- examples/misc/cldap.pl | 2 +- examples/misc/wall.perl | 2 +- examples/printer-accounting/acct-sum | 2 +- examples/printer-accounting/hp5-redir | 2 +- examples/printer-accounting/lp-acct | 2 +- examples/scripts/eventlog/parselog.pl | 2 +- examples/scripts/printing/cups/smbaddprinter.pl | 2 +- examples/scripts/printing/cups/smbdelprinter.pl | 2 +- examples/scripts/users_and_groups/adduserstogroups.pl | 2 +- examples/scripts/users_and_groups/createdomobj.pl | 2 +- librpc/tables.pl | 2 +- pidl/tests/cutil.pl | 2 +- pidl/tests/dump.pl | 2 +- pidl/tests/header.pl | 2 +- pidl/tests/ndr.pl | 2 +- pidl/tests/ndr_align.pl | 2 +- pidl/tests/ndr_alloc.pl | 2 +- pidl/tests/ndr_array.pl | 2 +- pidl/tests/ndr_compat.pl | 2 +- pidl/tests/ndr_deprecations.pl | 2 +- pidl/tests/ndr_fullptr.pl | 2 +- pidl/tests/ndr_refptr.pl | 2 +- pidl/tests/ndr_represent.pl | 2 +- pidl/tests/ndr_simple.pl | 2 +- pidl/tests/ndr_string.pl | 2 +- pidl/tests/ndr_tagtype.pl | 2 +- pidl/tests/parse_idl.pl | 2 +- pidl/tests/samba-ndr.pl | 2 +- pidl/tests/samba3-cli.pl | 2 +- pidl/tests/samba3-srv.pl | 2 +- pidl/tests/tdr.pl | 2 +- pidl/tests/test_util.pl | 2 +- pidl/tests/typelist.pl | 2 +- pidl/tests/util.pl | 2 +- pidl/tests/wireshark-conf.pl | 2 +- pidl/tests/wireshark-ndr.pl | 2 +- script/configure_check_unused.pl | 2 +- script/findstatic.pl | 2 +- script/traffic_summary.pl | 2 +- selftest/SocketWrapper.pm | 2 +- selftest/selftest.pl | 2 +- selftest/target/Samba.pm | 2 +- selftest/target/Samba3.pm | 2 +- selftest/target/Samba4.pm | 2 +- source3/script/count_80_col.pl | 2 +- source3/script/findsmb.in | 2 +- source3/script/fix_bool.pl | 2 +- source3/script/scancvslog.pl | 2 +- source3/script/strip_trail_ws.pl | 2 +- source3/script/tests/fake_snap.pl | 2 +- source3/script/tests/printing/modprinter.pl | 2 +- source3/script/tests/test_smbclient_tarmode.pl | 2 +- source3/script/wscript_build | 5 +---- source4/build/pasn1/pasn1.pl | 2 +- source4/script/buildtree.pl | 2 +- source4/script/minimal_includes.pl | 2 +- source4/script/mkproto.pl | 2 +- source4/script/update-proto.pl | 2 +- source4/scripting/bin/nsupdate-gss | 2 +- source4/selftest/win/VMHost.pm | 2 +- source4/selftest/win/vm_get_ip.pl | 2 +- source4/selftest/win/vm_load_snapshot.pl | 2 +- third_party/nss_wrapper/nss_wrapper.pl | 2 +- 70 files changed, 70 insertions(+), 73 deletions(-) diff --git a/ctdb/utils/nagios/check_ctdb b/ctdb/utils/nagios/check_ctdb index 7803f9a6c3d..10f5fd4d9e5 100755 --- a/ctdb/utils/nagios/check_ctdb +++ b/ctdb/utils/nagios/check_ctdb @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl -w # Nagios plugin to monitor CTDB (Clustered Trivial Database) # # License: GPL diff --git a/docs-xml/scripts/indent-smb.conf.pl b/docs-xml/scripts/indent-smb.conf.pl index c4c87a15112..099c6582368 100755 --- a/docs-xml/scripts/indent-smb.conf.pl +++ b/docs-xml/scripts/indent-smb.conf.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl while() { if(/^$/) { } diff --git a/examples/LDAP/ol-schema-migrate.pl b/examples/LDAP/ol-schema-migrate.pl index 12392cb4cd0..40915609404 100755 --- a/examples/LDAP/ol-schema-migrate.pl +++ b/examples/LDAP/ol-schema-migrate.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl -w # # Convert OpenLDAP schema files into Fedora DS format with RFC2252 compliant printing # diff --git a/examples/logon/genlogon/genlogon.pl b/examples/logon/genlogon/genlogon.pl index 4799ac8452d..ef37ade2f54 100644 --- a/examples/logon/genlogon/genlogon.pl +++ b/examples/logon/genlogon/genlogon.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # # genlogon.pl # diff --git a/examples/logon/mklogon/mklogon.pl b/examples/logon/mklogon/mklogon.pl index 870abd192c1..9064811a704 100644 --- a/examples/logon/mklogon/mklogon.pl +++ b/examples/logon/mklogon/mklogon.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl -w # 05/01/2005 - 18:07:10 # diff --git a/examples/misc/adssearch.pl b/examples/misc/adssearch.pl index 7c3570abd6e..563e9033e1d 100755 --- a/examples/misc/adssearch.pl +++ b/examples/misc/adssearch.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl -w # # adssearch.pl - query an Active Directory server and # display objects in a human readable format diff --git a/examples/misc/check_multiple_LDAP_entries.pl b/examples/misc/check_multiple_LDAP_entries.pl index 00c197ace4f..0c33823b5df 100755 --- a/examples/misc/check_multiple_LDAP_entries.pl +++ b/examples/misc/check_multiple_LDAP_entries.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl -w # Guenther Deschner # # check for multiple LDAP entries diff --git a/examples/misc/cldap.pl b/examples/misc/cldap.pl index c33fdedfbfe..a4dc8b36518 100755 --- a/examples/misc/cldap.pl +++ b/examples/misc/cldap.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl -w # Copyright (C) Guenther Deschner 2006 diff --git a/examples/misc/wall.perl b/examples/misc/wall.perl index efa4ee5ae44..80a99b205e6 100644 --- a/examples/misc/wall.perl +++ b/examples/misc/wall.perl @@ -1,4 +1,4 @@ -#! /usr/bin/env perl +#!/usr/bin/env perl # #@(#) smb-wall.pl Description: #@(#) A perl script which allows you to announce whatever you choose to diff --git a/examples/printer-accounting/acct-sum b/examples/printer-accounting/acct-sum index ffbfc8d8801..cc458dfbd45 100644 --- a/examples/printer-accounting/acct-sum +++ b/examples/printer-accounting/acct-sum @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl while (<>) { ($date, $user, $machine, $size, $pages) = split(' '); diff --git a/examples/printer-accounting/hp5-redir b/examples/printer-accounting/hp5-redir index ea1299068a3..a5696b9c4d8 100644 --- a/examples/printer-accounting/hp5-redir +++ b/examples/printer-accounting/hp5-redir @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # # 0 == stdin == docuement # 1 == stdout == printer diff --git a/examples/printer-accounting/lp-acct b/examples/printer-accounting/lp-acct index 91a3def08f8..9d9ed50fbbc 100644 --- a/examples/printer-accounting/lp-acct +++ b/examples/printer-accounting/lp-acct @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # # 0 == stdin == docuement # 1 == stdout == printer diff --git a/examples/scripts/eventlog/parselog.pl b/examples/scripts/eventlog/parselog.pl index a2f9a278d45..dc96ca116b7 100644 --- a/examples/scripts/eventlog/parselog.pl +++ b/examples/scripts/eventlog/parselog.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl ###################################################################### ## ## Simple parselog script for Samba diff --git a/examples/scripts/printing/cups/smbaddprinter.pl b/examples/scripts/printing/cups/smbaddprinter.pl index aee2020bfcc..0ef3e8e2592 100755 --- a/examples/scripts/printing/cups/smbaddprinter.pl +++ b/examples/scripts/printing/cups/smbaddprinter.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl ## Add printer script for samba, APW, and cups ## Copyright (C) Jeff Hardy 2004 ## diff --git a/examples/scripts/printing/cups/smbdelprinter.pl b/examples/scripts/printing/cups/smbdelprinter.pl index 23adeb719cf..80a9292325a 100755 --- a/examples/scripts/printing/cups/smbdelprinter.pl +++ b/examples/scripts/printing/cups/smbdelprinter.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl ## Delete printer script for samba, APW, and cups ## Copyright (C) Gerald (Jerry) Carter 2004 ## diff --git a/examples/scripts/users_and_groups/adduserstogroups.pl b/examples/scripts/users_and_groups/adduserstogroups.pl index 67594287743..b34c974a56e 100755 --- a/examples/scripts/users_and_groups/adduserstogroups.pl +++ b/examples/scripts/users_and_groups/adduserstogroups.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # # adduserstogroups.pl diff --git a/examples/scripts/users_and_groups/createdomobj.pl b/examples/scripts/users_and_groups/createdomobj.pl index 919f75ad076..3b46ee69b12 100755 --- a/examples/scripts/users_and_groups/createdomobj.pl +++ b/examples/scripts/users_and_groups/createdomobj.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # # createdomobj.pl diff --git a/librpc/tables.pl b/librpc/tables.pl index 04764f5fa0b..53e18a8f038 100755 --- a/librpc/tables.pl +++ b/librpc/tables.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl -w ################################################### # package to produce a table of all idl parsers diff --git a/pidl/tests/cutil.pl b/pidl/tests/cutil.pl index 78c8bce45e1..442ffb4140b 100755 --- a/pidl/tests/cutil.pl +++ b/pidl/tests/cutil.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # (C) 2007 Jelmer Vernooij # Published under the GNU General Public License use strict; diff --git a/pidl/tests/dump.pl b/pidl/tests/dump.pl index d1a56f09735..4bf3a4767ea 100755 --- a/pidl/tests/dump.pl +++ b/pidl/tests/dump.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # (C) 2007 Jelmer Vernooij # Published under the GNU General Public License use strict; diff --git a/pidl/tests/header.pl b/pidl/tests/header.pl index db594844446..6ee370492be 100755 --- a/pidl/tests/header.pl +++ b/pidl/tests/header.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # (C) 2007 Jelmer Vernooij # Published under the GNU General Public License use strict; diff --git a/pidl/tests/ndr.pl b/pidl/tests/ndr.pl index b6fd4899b01..562d98b9629 100755 --- a/pidl/tests/ndr.pl +++ b/pidl/tests/ndr.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # (C) 2007 Jelmer Vernooij # Published under the GNU General Public License use strict; diff --git a/pidl/tests/ndr_align.pl b/pidl/tests/ndr_align.pl index 1f4a0da9bbb..9a8d554ee84 100755 --- a/pidl/tests/ndr_align.pl +++ b/pidl/tests/ndr_align.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # NDR alignment tests # (C) 2005 Jelmer Vernooij. Published under the GNU GPL use strict; diff --git a/pidl/tests/ndr_alloc.pl b/pidl/tests/ndr_alloc.pl index 399fbd21d62..9a67f0dd061 100755 --- a/pidl/tests/ndr_alloc.pl +++ b/pidl/tests/ndr_alloc.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # NDR allocation tests # (C) 2005 Jelmer Vernooij. Published under the GNU GPL use strict; diff --git a/pidl/tests/ndr_array.pl b/pidl/tests/ndr_array.pl index 2a6b5bbd57d..2befd89c437 100755 --- a/pidl/tests/ndr_array.pl +++ b/pidl/tests/ndr_array.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # Array testing # (C) 2005 Jelmer Vernooij # Published under the GNU General Public License diff --git a/pidl/tests/ndr_compat.pl b/pidl/tests/ndr_compat.pl index 355e7f67323..a81931c8b8e 100755 --- a/pidl/tests/ndr_compat.pl +++ b/pidl/tests/ndr_compat.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # (C) 2007 Jelmer Vernooij # Published under the GNU General Public License use strict; diff --git a/pidl/tests/ndr_deprecations.pl b/pidl/tests/ndr_deprecations.pl index 86828e59825..628735a7c9a 100755 --- a/pidl/tests/ndr_deprecations.pl +++ b/pidl/tests/ndr_deprecations.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # (C) 2007 Jelmer Vernooij # Published under the GNU General Public License use strict; diff --git a/pidl/tests/ndr_fullptr.pl b/pidl/tests/ndr_fullptr.pl index 4ba11b740c6..1f1696eebf3 100755 --- a/pidl/tests/ndr_fullptr.pl +++ b/pidl/tests/ndr_fullptr.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # Simple tests for unique pointers # (C) 2006 Jelmer Vernooij . # Published under the GNU General Public License. diff --git a/pidl/tests/ndr_refptr.pl b/pidl/tests/ndr_refptr.pl index f972611ed81..88704974120 100755 --- a/pidl/tests/ndr_refptr.pl +++ b/pidl/tests/ndr_refptr.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # Simple tests for pidl's handling of ref pointers, based # on tridge's ref_notes.txt # (C) 2005 Jelmer Vernooij . diff --git a/pidl/tests/ndr_represent.pl b/pidl/tests/ndr_represent.pl index 2d65fb92b09..7914aa48f19 100755 --- a/pidl/tests/ndr_represent.pl +++ b/pidl/tests/ndr_represent.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # NDR represent_as() / transmit_as() tests # (C) 2006 Jelmer Vernooij. Published under the GNU GPL use strict; diff --git a/pidl/tests/ndr_simple.pl b/pidl/tests/ndr_simple.pl index 15e07d56934..eaee5303896 100755 --- a/pidl/tests/ndr_simple.pl +++ b/pidl/tests/ndr_simple.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # Some simple tests for pidl # (C) 2005 Jelmer Vernooij # Published under the GNU General Public License diff --git a/pidl/tests/ndr_string.pl b/pidl/tests/ndr_string.pl index 8e8b8ecbad6..6738ef75ecf 100755 --- a/pidl/tests/ndr_string.pl +++ b/pidl/tests/ndr_string.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # String tests for pidl # (C) 2005 Jelmer Vernooij # Published under the GNU General Public License diff --git a/pidl/tests/ndr_tagtype.pl b/pidl/tests/ndr_tagtype.pl index 4d6bcb53afc..30205653b0a 100755 --- a/pidl/tests/ndr_tagtype.pl +++ b/pidl/tests/ndr_tagtype.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # Support for tagged types # (C) 2005 Jelmer Vernooij. Published under the GNU GPL use strict; diff --git a/pidl/tests/parse_idl.pl b/pidl/tests/parse_idl.pl index 14138a37b89..85e73c264df 100755 --- a/pidl/tests/parse_idl.pl +++ b/pidl/tests/parse_idl.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # Some simple tests for pidls parsing routines # (C) 2005 Jelmer Vernooij # Published under the GNU General Public License diff --git a/pidl/tests/samba-ndr.pl b/pidl/tests/samba-ndr.pl index 7c53cbc76f0..97b460aadd3 100755 --- a/pidl/tests/samba-ndr.pl +++ b/pidl/tests/samba-ndr.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # (C) 2007 Jelmer Vernooij # Published under the GNU General Public License use strict; diff --git a/pidl/tests/samba3-cli.pl b/pidl/tests/samba3-cli.pl index c758ef45425..f1586f154cc 100755 --- a/pidl/tests/samba3-cli.pl +++ b/pidl/tests/samba3-cli.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # (C) 2007 Jelmer Vernooij # Published under the GNU General Public License use strict; diff --git a/pidl/tests/samba3-srv.pl b/pidl/tests/samba3-srv.pl index d1e2bc9545a..8f49b467cb7 100755 --- a/pidl/tests/samba3-srv.pl +++ b/pidl/tests/samba3-srv.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # (C) 2008 Jelmer Vernooij # Published under the GNU General Public License use strict; diff --git a/pidl/tests/tdr.pl b/pidl/tests/tdr.pl index d6cd7a03d4c..d0a84a32d04 100755 --- a/pidl/tests/tdr.pl +++ b/pidl/tests/tdr.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # (C) 2007 Jelmer Vernooij # Published under the GNU General Public License use strict; diff --git a/pidl/tests/test_util.pl b/pidl/tests/test_util.pl index 2d59f6283bb..eb9230e08c4 100755 --- a/pidl/tests/test_util.pl +++ b/pidl/tests/test_util.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # (C) 2007 Jelmer Vernooij # Published under the GNU General Public License use strict; diff --git a/pidl/tests/typelist.pl b/pidl/tests/typelist.pl index 681c0eacfda..b118596e32a 100755 --- a/pidl/tests/typelist.pl +++ b/pidl/tests/typelist.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # (C) 2007 Jelmer Vernooij # Published under the GNU General Public License use strict; diff --git a/pidl/tests/util.pl b/pidl/tests/util.pl index cb77f34c510..10c4c7eb8cf 100755 --- a/pidl/tests/util.pl +++ b/pidl/tests/util.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # (C) 2007 Jelmer Vernooij # Published under the GNU General Public License use strict; diff --git a/pidl/tests/wireshark-conf.pl b/pidl/tests/wireshark-conf.pl index fff89f6fe0e..1574678b3b4 100755 --- a/pidl/tests/wireshark-conf.pl +++ b/pidl/tests/wireshark-conf.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # (C) 2007 Jelmer Vernooij # Published under the GNU General Public License # test parsing wireshark conformance files diff --git a/pidl/tests/wireshark-ndr.pl b/pidl/tests/wireshark-ndr.pl index 229315b0a90..4076885d0ee 100755 --- a/pidl/tests/wireshark-ndr.pl +++ b/pidl/tests/wireshark-ndr.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # (C) 2007 Jelmer Vernooij # Published under the GNU General Public License # test parsing wireshark conformance files diff --git a/script/configure_check_unused.pl b/script/configure_check_unused.pl index 52d8deeb27f..72417fc6691 100755 --- a/script/configure_check_unused.pl +++ b/script/configure_check_unused.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # Script that finds macros in a configure script that are not # used in a set of C files. # Copyright Jelmer Vernooij , GPL diff --git a/script/findstatic.pl b/script/findstatic.pl index 43a4916435d..88879a4b4d5 100755 --- a/script/findstatic.pl +++ b/script/findstatic.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl -w # find a list of fns and variables in the code that could be static # usually called with something like this: # findstatic.pl `find . -name "*.o"` diff --git a/script/traffic_summary.pl b/script/traffic_summary.pl index 05c1cf03702..725b3e15226 100755 --- a/script/traffic_summary.pl +++ b/script/traffic_summary.pl @@ -1,4 +1,4 @@ -#! /usr/bin/perl +#!/usr/bin/env perl # # Summarise tshark pdml output into a form suitable for the load test tool # diff --git a/selftest/SocketWrapper.pm b/selftest/SocketWrapper.pm index ef8058da794..a07c21be4c0 100644 --- a/selftest/SocketWrapper.pm +++ b/selftest/SocketWrapper.pm @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # Bootstrap Samba and run a number of tests against it. # Copyright (C) 2005-2007 Jelmer Vernooij diff --git a/selftest/selftest.pl b/selftest/selftest.pl index 3ee266c4d0a..459f6302136 100755 --- a/selftest/selftest.pl +++ b/selftest/selftest.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # Bootstrap Samba and run a number of tests against it. # Copyright (C) 2005-2010 Jelmer Vernooij # Copyright (C) 2007-2009 Stefan Metzmacher diff --git a/selftest/target/Samba.pm b/selftest/target/Samba.pm index e09cf365fc1..9c5249af0c1 100644 --- a/selftest/target/Samba.pm +++ b/selftest/target/Samba.pm @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # Bootstrap Samba and run a number of tests against it. # Copyright (C) 2005-2007 Jelmer Vernooij # Published under the GNU GPL, v3 or later. diff --git a/selftest/target/Samba3.pm b/selftest/target/Samba3.pm index 356b4d3f82a..557ea5a3a44 100755 --- a/selftest/target/Samba3.pm +++ b/selftest/target/Samba3.pm @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # Bootstrap Samba and run a number of tests against it. # Copyright (C) 2005-2007 Jelmer Vernooij # Published under the GNU GPL, v3 or later. diff --git a/selftest/target/Samba4.pm b/selftest/target/Samba4.pm index 8a459ad71ab..1e4754a0bbd 100755 --- a/selftest/target/Samba4.pm +++ b/selftest/target/Samba4.pm @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # Bootstrap Samba and run a number of tests against it. # Copyright (C) 2005-2007 Jelmer Vernooij # Published under the GNU GPL, v3 or later. diff --git a/source3/script/count_80_col.pl b/source3/script/count_80_col.pl index 8b226228c97..4f2d217ea00 100755 --- a/source3/script/count_80_col.pl +++ b/source3/script/count_80_col.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl -w open( INFILE, "$ARGV[0]" ) || die $@; diff --git a/source3/script/findsmb.in b/source3/script/findsmb.in index 38a6e2a1604..91edbac6cf8 100755 --- a/source3/script/findsmb.in +++ b/source3/script/findsmb.in @@ -1,4 +1,4 @@ -#!@PERL@ +#!/usr/bin/env perl # # Prints info on all smb responding machines on a subnet. # This script needs to be run on a machine without nmbd running and be diff --git a/source3/script/fix_bool.pl b/source3/script/fix_bool.pl index c09645de7c0..ceece07c722 100755 --- a/source3/script/fix_bool.pl +++ b/source3/script/fix_bool.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl -w open(INFILE, "$ARGV[0]") || die $@; open(OUTFILE, ">$ARGV[0].new") || die $@; diff --git a/source3/script/scancvslog.pl b/source3/script/scancvslog.pl index c39f9111c10..52837fd59f4 100755 --- a/source3/script/scancvslog.pl +++ b/source3/script/scancvslog.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl require"timelocal.pl"; # diff --git a/source3/script/strip_trail_ws.pl b/source3/script/strip_trail_ws.pl index c2c39e21e3c..d1c198ef71d 100755 --- a/source3/script/strip_trail_ws.pl +++ b/source3/script/strip_trail_ws.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl -w open( INFILE, "$ARGV[0]" ) || die $@; open( OUTFILE, ">$ARGV[0].new" ) || die $@; diff --git a/source3/script/tests/fake_snap.pl b/source3/script/tests/fake_snap.pl index 18bbcb7142e..657ea76938c 100755 --- a/source3/script/tests/fake_snap.pl +++ b/source3/script/tests/fake_snap.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl -w use strict; diff --git a/source3/script/tests/printing/modprinter.pl b/source3/script/tests/printing/modprinter.pl index ec1ebcd7ab8..b627930dbf9 100755 --- a/source3/script/tests/printing/modprinter.pl +++ b/source3/script/tests/printing/modprinter.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl -w use strict; diff --git a/source3/script/tests/test_smbclient_tarmode.pl b/source3/script/tests/test_smbclient_tarmode.pl index 29cea992ea0..47444f70b58 100755 --- a/source3/script/tests/test_smbclient_tarmode.pl +++ b/source3/script/tests/test_smbclient_tarmode.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # Unix SMB/CIFS implementation. # Test suite for the tar backup mode of smbclient. diff --git a/source3/script/wscript_build b/source3/script/wscript_build index 40ecdd7ef50..ca159e6aa0e 100644 --- a/source3/script/wscript_build +++ b/source3/script/wscript_build @@ -11,13 +11,10 @@ bld.SAMBA_SCRIPT('smbaddshare', pattern='smbaddshare', installdir='.') bld.SAMBA_SCRIPT('smbchangeshare', pattern='smbchangeshare', installdir='.') bld.SAMBA_SCRIPT('smbdeleteshare', pattern='smbdeleteshare', installdir='.') -sed_expr1 = 's#@PERL@#/usr/bin/env perl#' -sed_expr2 = 's#@BINDIR@#${BINDIR}#' - bld.SAMBA_GENERATOR('findsmb-script', source='findsmb.in', target='findsmb', - rule='sed -e "%s" -e "%s" ${SRC} > ${TGT}' % (sed_expr1, sed_expr2)) + rule='sed -e "s#@BINDIR@#${BINDIR}#" ${SRC} > ${TGT}') bld.INSTALL_FILES('${BINDIR}', 'findsmb', diff --git a/source4/build/pasn1/pasn1.pl b/source4/build/pasn1/pasn1.pl index c3689fd9288..204cc146108 100755 --- a/source4/build/pasn1/pasn1.pl +++ b/source4/build/pasn1/pasn1.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl -w ################################################### # package to parse ASN.1 files and generate code for diff --git a/source4/script/buildtree.pl b/source4/script/buildtree.pl index a40036aa55c..698ba231683 100755 --- a/source4/script/buildtree.pl +++ b/source4/script/buildtree.pl @@ -1,4 +1,4 @@ -#! /usr/bin/env perl -w +#!/usr/bin/env perl -w eval 'exec /usr/bin/env perl -S $0 ${1+"$@"}' if 0; #$running_under_some_shell diff --git a/source4/script/minimal_includes.pl b/source4/script/minimal_includes.pl index 4203d00ac0d..7371e3aaa6c 100755 --- a/source4/script/minimal_includes.pl +++ b/source4/script/minimal_includes.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl -w # find a list of #include lines in C code that might not be needed # usually called with something like this: # minimal_includes.pl `find . -name "*.c"` diff --git a/source4/script/mkproto.pl b/source4/script/mkproto.pl index 2c3ebac0f99..5aaca5182ef 100755 --- a/source4/script/mkproto.pl +++ b/source4/script/mkproto.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # Simple script for generating prototypes for C functions # Written by Jelmer Vernooij # based on the original mkproto.sh by Andrew Tridgell diff --git a/source4/script/update-proto.pl b/source4/script/update-proto.pl index c130650fb82..0a525b2ac65 100755 --- a/source4/script/update-proto.pl +++ b/source4/script/update-proto.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # Simple script for updating the prototypes in a C header file # # Copyright (C) 2006 Jelmer Vernooij diff --git a/source4/scripting/bin/nsupdate-gss b/source4/scripting/bin/nsupdate-gss index 509220d5a1d..c4ad7dd442a 100755 --- a/source4/scripting/bin/nsupdate-gss +++ b/source4/scripting/bin/nsupdate-gss @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl -w # update a win2000 DNS server using gss-tsig # tridge@samba.org, October 2002 diff --git a/source4/selftest/win/VMHost.pm b/source4/selftest/win/VMHost.pm index 1f02f21c284..4c924cbcab2 100644 --- a/source4/selftest/win/VMHost.pm +++ b/source4/selftest/win/VMHost.pm @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl -w # A perl object to provide a simple, unified method of handling some # VMware Server VM management functions using the perl and VIX API's. diff --git a/source4/selftest/win/vm_get_ip.pl b/source4/selftest/win/vm_get_ip.pl index 9657a34790f..f3540ca16c9 100644 --- a/source4/selftest/win/vm_get_ip.pl +++ b/source4/selftest/win/vm_get_ip.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl -w # A perl script to connect to a VMware server and get the IP address of a VM. # Copyright Brad Henry 2006 diff --git a/source4/selftest/win/vm_load_snapshot.pl b/source4/selftest/win/vm_load_snapshot.pl index 35e80badce2..25c8bccbf1c 100644 --- a/source4/selftest/win/vm_load_snapshot.pl +++ b/source4/selftest/win/vm_load_snapshot.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/env perl -w # A perl script to connect to a VMware server and revert a VM snapshot. # Copyright Brad Henry 2006 diff --git a/third_party/nss_wrapper/nss_wrapper.pl b/third_party/nss_wrapper/nss_wrapper.pl index 48fa2c52b8f..1171e8076c1 100755 --- a/third_party/nss_wrapper/nss_wrapper.pl +++ b/third_party/nss_wrapper/nss_wrapper.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl # use strict;