For portability use BUF_strndup instead of strndup.
[openssl.git] / util / perlpath.pl
1 #!/usr/local/bin/perl
2 #
3 # modify the '#!/usr/local/bin/perl'
4 # line in all scripts that rely on perl.
5 #
6
7 require "find.pl";
8
9 $#ARGV == 0 || print STDERR "usage: perlpath newpath  (eg /usr/bin)\n";
10 &find(".");
11
12 sub wanted
13         {
14         return unless /\.pl$/ || /^[Cc]onfigur/;
15
16         open(IN,"<$_") || die "unable to open $dir/$_:$!\n";
17         @a=<IN>;
18         close(IN);
19
20         if (-d $ARGV[0]) {
21                 $a[0]="#!$ARGV[0]/perl\n";
22         }
23         else {
24                 $a[0]="#!$ARGV[0]\n";
25         }
26
27         # Playing it safe...
28         $new="$_.new";
29         open(OUT,">$new") || die "unable to open $dir/$new:$!\n";
30         print OUT @a;
31         close(OUT);
32
33         rename($new,$_) || die "unable to rename $dir/$new:$!\n";
34         chmod(0755,$_) || die "unable to chmod $dir/$new:$!\n";
35         }