1#!/usr/local/bin/perl
2#
3# modify the '#!/usr/local/bin/perl'
4# line in all scripts that rely on perl.
5#
6
7require "find.pl";
8
9$#ARGV == 0 || print STDERR "usage: perlpath newpath  (eg /usr/bin)\n";
10&find(".");
11
12sub 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	}
36