mirror of https://github.com/openssl/openssl.git
				
				
				
			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:
		
							parent
							
								
									637691e6b4
								
							
						
					
					
						commit
						7e37e72a3d
					
				
							
								
								
									
										7
									
								
								CHANGES
								
								
								
								
							
							
						
						
									
										7
									
								
								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 <Matthias.Loepfe@adnovum.ch>]
 | 
			
		||||
 | 
			
		||||
  *) Let util/clean-depend.pl work also with older Perl 5.00x versions.
 | 
			
		||||
     [Matthias Loepfe <Matthias.Loepfe@adnovum.ch>]
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -17,7 +17,12 @@ sub wanted
 | 
			
		|||
	@a=<IN>;
 | 
			
		||||
	close(IN);
 | 
			
		||||
 | 
			
		||||
	if (-d $ARGV[0]) {
 | 
			
		||||
		$a[0]="#!$ARGV[0]/perl\n";
 | 
			
		||||
	}
 | 
			
		||||
	else {
 | 
			
		||||
		$a[0]="#!$ARGV[0]\n";
 | 
			
		||||
	}
 | 
			
		||||
 | 
			
		||||
	# Playing it safe...
 | 
			
		||||
	$new="$_.new";
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue