mirror of
https://github.com/openssl/openssl.git
synced 2025-01-18 13:44:20 +08:00
31 lines
618 B
Perl
31 lines
618 B
Perl
|
#!/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);
|
||
|
|
|
||
|
|
$a[0]="#!$ARGV[0]/perl\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";
|
||
|
|
}
|