From 7e37e72a3ddc3935cc88f6e20e89395f87bacd09 Mon Sep 17 00:00:00 2001 From: "Ralf S. Engelschall" Date: Wed, 10 Mar 1999 19:57:05 +0000 Subject: [PATCH] Be less restrictive and allow also `perl util/perlpath.pl /path/to/bin/perl' in addition to `perl util/perlpath.pl /path/to/bin', because this way one can also use an interpreter named `perl5' (which is usually the name of Perl 5.xxx on platforms where an Perl 4.x is still installed as `perl'). Submitted by: Matthias Loepfe Reviewed by: Ralf S. Engelschall --- CHANGES | 7 +++++++ util/perlpath.pl | 7 ++++++- 2 files changed, 13 insertions(+), 1 deletion(-) diff --git a/CHANGES b/CHANGES index b51d031a9c..7abe7b5736 100644 --- a/CHANGES +++ b/CHANGES @@ -5,6 +5,13 @@ Changes between 0.9.1c and 0.9.2 + *) Be less restrictive and allow also `perl util/perlpath.pl + /path/to/bin/perl' in addition to `perl util/perlpath.pl /path/to/bin', + because this way one can also use an interpreter named `perl5' (which is + usually the name of Perl 5.xxx on platforms where an Perl 4.x is still + installed as `perl'). + [Matthias Loepfe ] + *) Let util/clean-depend.pl work also with older Perl 5.00x versions. [Matthias Loepfe ] diff --git a/util/perlpath.pl b/util/perlpath.pl index 0aa5ada367..a1f236bd98 100755 --- a/util/perlpath.pl +++ b/util/perlpath.pl @@ -17,7 +17,12 @@ sub wanted @a=; close(IN); - $a[0]="#!$ARGV[0]/perl\n"; + if (-d $ARGV[0]) { + $a[0]="#!$ARGV[0]/perl\n"; + } + else { + $a[0]="#!$ARGV[0]\n"; + } # Playing it safe... $new="$_.new"; -- 2.34.1