From: Raoul Gunnar Borenius <borenius@dfn.de>
Date: Thu, 19 Nov 2020 12:35:27 +0000 (+0900)
Subject: set correct path to perl interpreter in examples
X-Git-Tag: archive/raspbian/4.99.4+dfsg-2+rpi1~1^2^2^2^2~5
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=30d38e13568dbc010f05ff8ed5689abd47f0c638;p=lsof.git

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 3cfb9e6..4463464 100644
--- 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 14c67a8..65332a2 100755
--- 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 f063697..5181e0a 100755
--- 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 6b87f78..4c61f36 100755
--- 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 32626d8..6662fac 100755
--- 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 d244dc7..9932080 100755
--- 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 5e7e4bf..cf198c8 100755
--- 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 a9cdbed..8d60ed8 100755
--- 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 41bd3e4..d1eede4 100755
--- 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 2721413..02780ea 100755
--- 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 c1cd782..adbdc5c 100755
--- 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)