]>
Commit | Line | Data |
---|---|---|
d02b48c6 RE |
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 | ||
7e37e72a RE |
20 | if (-d $ARGV[0]) { |
21 | $a[0]="#!$ARGV[0]/perl\n"; | |
22 | } | |
23 | else { | |
24 | $a[0]="#!$ARGV[0]\n"; | |
25 | } | |
d02b48c6 RE |
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 | } |