generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Be less restrictive and allow also `perl util/perlpath.pl /path/to/bin/perl'

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
CHANGES
View File

@ -5,6 +5,13 @@
Changes between 0.9.1c and 0.9.2 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 <Matthias.Loepfe@adnovum.ch>]
*) Let util/clean-depend.pl work also with older Perl 5.00x versions. *) Let util/clean-depend.pl work also with older Perl 5.00x versions.
[Matthias Loepfe <Matthias.Loepfe@adnovum.ch>] [Matthias Loepfe <Matthias.Loepfe@adnovum.ch>]

5
util/perlpath.pl
View File

@ -17,7 +17,12 @@ sub wanted
@a=<IN>; @a=<IN>;
close(IN); close(IN);
if (-d $ARGV[0]) {
$a[0]="#!$ARGV[0]/perl\n"; $a[0]="#!$ARGV[0]/perl\n";
}
else {
$a[0]="#!$ARGV[0]\n";
}
# Playing it safe... # Playing it safe...
$new="$_.new"; $new="$_.new";