diff options
| -rw-r--r-- | CHANGES | 7 | ||||
| -rwxr-xr-x | util/perlpath.pl | 7 |
2 files changed, 13 insertions, 1 deletions
@@ -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 <Matthias.Loepfe@adnovum.ch>] + *) Let util/clean-depend.pl work also with older Perl 5.00x versions. [Matthias Loepfe <Matthias.Loepfe@adnovum.ch>] 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=<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"; |