mirror of
https://github.com/openssl/openssl.git
synced 2024-12-27 06:21:43 +08:00
7e37e72a3d
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
36 lines
677 B
Perl
Executable File
36 lines
677 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
#
|
|
# modify the '#!/usr/local/bin/perl'
|
|
# line in all scripts that rely on perl.
|
|
#
|
|
|
|
require "find.pl";
|
|
|
|
$#ARGV == 0 || print STDERR "usage: perlpath newpath (eg /usr/bin)\n";
|
|
&find(".");
|
|
|
|
sub wanted
|
|
{
|
|
return unless /\.pl$/ || /^[Cc]onfigur/;
|
|
|
|
open(IN,"<$_") || die "unable to open $dir/$_:$!\n";
|
|
@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";
|
|
open(OUT,">$new") || die "unable to open $dir/$new:$!\n";
|
|
print OUT @a;
|
|
close(OUT);
|
|
|
|
rename($new,$_) || die "unable to rename $dir/$new:$!\n";
|
|
chmod(0755,$_) || die "unable to chmod $dir/$new:$!\n";
|
|
}
|