set correct path to perl interpreter in examples

Forwarded: not-needed
Reviewed-by: Nicholas Bamber <nicholas@periapt.co.uk>
Last-Update: 2012-04-17

The supplied expample scipts assume that perl is installed
in /usr/local/bin which is not the case in Debian.
This patch changes the path to /usr/bin/perl in all supplied
example scripts and corrects a comment in scripts/identd.perl5.

Gbp-Pq: Name examples

diff --git a/scripts/00README b/scripts/00README
index 3cfb9e6b2495aa959466ced8b0da3313f6a97efd..44634649960b2c0ca667f7376791b92a81cb1a4f 100644 (file)
--- a/scripts/00README
+++ b/scripts/00README
@@ -33,9 +33,9 @@ the scripts.  These scripts assume:
        Path to:        Is:
        =======         ==
 
-       Perl 4          /usr/local/bin/perl4
+       Perl 4          /usr/bin/perl
 
-       Perl 5          /usr/local/bin/perl
+       Perl 5          /usr/bin/perl
 
 If your system doesn't support the command interpreter feature,
 you'll have to supply the scripts to your Perl interpreter on its

diff --git a/scripts/big_brother.perl5 b/scripts/big_brother.perl5
index 14c67a83821ed5bb15aadf9c0befca8c07baea60..65332a2ab58f21d68ecdfa2bb7c7af2c538bb7b0 100755 (executable)
--- a/scripts/big_brother.perl5
+++ b/scripts/big_brother.perl5
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 #+##############################################################################
 #                                                                              #
 # File: big_brother.perl                                                       #

diff --git a/scripts/count_pf.perl b/scripts/count_pf.perl
index f063697b6e2af357109a8dd5d8843d64cf4578c9..5181e0a0a38cee3836e7a1036dd48c40b7dc3867 100755 (executable)
--- a/scripts/count_pf.perl
+++ b/scripts/count_pf.perl
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 #
 # count_pf.perl-- run lsof in repeat mode and count processes and
 #                files

diff --git a/scripts/count_pf.perl5 b/scripts/count_pf.perl5
index 6b87f78a386a3564bbf4e8d1696b7c17f6769bb3..4c61f364d9225828c0a86b001306f1974d947074 100755 (executable)
--- a/scripts/count_pf.perl5
+++ b/scripts/count_pf.perl5
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 #
 # count_pf.perl5 -- run lsof in repeat mode and count processes and
 #                  files

diff --git a/scripts/identd.perl5 b/scripts/identd.perl5
index 32626d8291be21858ff808f7943d7555208c5d92..6662fac71d4b3e461ab37c70248ee52a17e23987 100755 (executable)
--- a/scripts/identd.perl5
+++ b/scripts/identd.perl5
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 ###################################################################
 # identd.perl5 : An implementation of RFC 1413 Ident Server
 #                using Vic Abell's lsof.
@@ -11,7 +11,7 @@
 # - Multiple instances of the server are not a performance penalty
 #   since they shall use lsof's cacheing mechanism. (compare with
 #   Peter Eriksson's pidentd)
-# - assumes 'lsof' binary in /usr/local/sbin
+# - assumes 'lsof' binary in $PATH
 # - Command line arguments :
 #   -t TIMEOUT Number of seconds to wait for a query before aborting.
 #              Default is 120.

diff --git a/scripts/idrlogin.perl b/scripts/idrlogin.perl
index d244dc7cb3218b35cf21e620287a0486fa645300..9932080a54cd0800f566ddc8feca0f3e1c59f0e3 100755 (executable)
--- a/scripts/idrlogin.perl
+++ b/scripts/idrlogin.perl
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 #
 # $Id: idrlogin.perl,v 1.5 2001/11/18 12:20:46 abe Exp $
 #

diff --git a/scripts/idrlogin.perl5 b/scripts/idrlogin.perl5
index 5e7e4bf26f579e1ff07abfdcad44aa7704462c7e..cf198c80ba43b77afa2a43651fa6fb8f6d0d12f3 100755 (executable)
--- a/scripts/idrlogin.perl5
+++ b/scripts/idrlogin.perl5
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 #
 # $Id: idrlogin.perl5,v 1.5 2001/11/18 12:20:46 abe Exp $
 #

diff --git a/scripts/list_NULf.perl5 b/scripts/list_NULf.perl5
index a9cdbed232e9a6d8b42536ddbd64b3eec2d79d1d..8d60ed808b67b90280d7e0160f1a6b1dd8e2851e 100755 (executable)
--- a/scripts/list_NULf.perl5
+++ b/scripts/list_NULf.perl5
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 #
 # $Id: list_NULf.perl5,v 1.5 2000/07/14 17:03:37 abe Exp $
 #

diff --git a/scripts/list_fields.perl b/scripts/list_fields.perl
index 41bd3e467112140d5cb33b489e7cf1120140ea04..d1eede4e3289306e379247a223566f45503c047a 100755 (executable)
--- a/scripts/list_fields.perl
+++ b/scripts/list_fields.perl
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl4
+#!/usr/bin/perl
 #
 # $Id: list_fields.perl,v 1.5 2000/07/14 17:03:37 abe Exp $
 #

diff --git a/scripts/shared.perl5 b/scripts/shared.perl5
index 2721413e5a03e260e8a5cfe2e585bcabf4a0b5cb..02780ea145e6cbf94462978ae22eaf9a4e91abe3 100755 (executable)
--- a/scripts/shared.perl5
+++ b/scripts/shared.perl5
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 #
 # $Id: shared.perl5,v 1.4 2001/11/18 12:20:46 abe Exp $
 #

diff --git a/scripts/watch_a_file.perl b/scripts/watch_a_file.perl
index c1cd78236bfe45ddcc3269e4e8cfe5192d22e243..adbdc5c0bca7b32e31ba3f9f97e4d5be8974fe99 100755 (executable)
--- a/scripts/watch_a_file.perl
+++ b/scripts/watch_a_file.perl
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 #
 # watch_a_file.perl -- use lsof -F output to watch a specific file
 #                     (or file system)