Commit 7e37e72a authored by Ralf S. Engelschall's avatar Ralf S. Engelschall
Browse files

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
parent 637691e6

CHANGES

+7 −0
Original line number Original line Diff line number Diff line
@@ -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>]

util/perlpath.pl

+6 −1
Original line number Original line Diff line number Diff line
@@ -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";