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 <Matthias.Loepfe@adnovum.ch>
Reviewed by: Ralf S. Engelschall
This commit is contained in:
Ralf S. Engelschall
1999-03-10 19:57:05 +00:00
parent 637691e6b4
commit 7e37e72a3d
2 changed files with 13 additions and 1 deletions

View File

@@ -17,7 +17,12 @@ sub wanted
@a=<IN>;
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";