From: Raoul Gunnar Borenius <borenius@dfn.de>
Date: Sat, 14 May 2022 01:46:43 +0800
Subject: set correct path to perl interpreter in examples

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.
Forwarded: not-needed
Reviewed-by: Nicholas Bamber <nicholas@periapt.co.uk>
Last-Update: 2012-04-17
---
 scripts/00README          | 4 ++--
 scripts/big_brother.perl5 | 2 +-
 scripts/count_pf.perl     | 2 +-
 scripts/count_pf.perl5    | 2 +-
 scripts/identd.perl5      | 4 ++--
 scripts/idrlogin.perl     | 2 +-
 scripts/idrlogin.perl5    | 2 +-
 scripts/list_NULf.perl5   | 2 +-
 scripts/list_fields.perl  | 2 +-
 scripts/shared.perl5      | 2 +-
 scripts/watch_a_file.perl | 2 +-
 11 files changed, 13 insertions(+), 13 deletions(-)

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)
