Add CygWin32 platform information to Configure script.
[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         $a[0]="#!$ARGV[0]/perl\n";
21
22         # Playing it safe...
23         $new="$_.new";
24         open(OUT,">$new") || die "unable to open $dir/$new:$!\n";
25         print OUT @a;
26         close(OUT);
27
28         rename($new,$_) || die "unable to rename $dir/$new:$!\n";
29         chmod(0755,$_) || die "unable to chmod $dir/$new:$!\n";
30         }