155714Skris#!/usr/local/bin/perl
255714Skris#
355714Skris# modify the '#!/usr/local/bin/perl'
455714Skris# line in all scripts that rely on perl.
555714Skris#
655714Skris
755714Skrisrequire "find.pl";
855714Skris
955714Skris$#ARGV == 0 || print STDERR "usage: perlpath newpath  (eg /usr/bin)\n";
1055714Skris&find(".");
1155714Skris
1255714Skrissub wanted
1355714Skris	{
1455714Skris	return unless /\.pl$/ || /^[Cc]onfigur/;
1555714Skris
1655714Skris	open(IN,"<$_") || die "unable to open $dir/$_:$!\n";
1755714Skris	@a=<IN>;
1855714Skris	close(IN);
1955714Skris
2055714Skris	if (-d $ARGV[0]) {
2155714Skris		$a[0]="#!$ARGV[0]/perl\n";
2255714Skris	}
2355714Skris	else {
2455714Skris		$a[0]="#!$ARGV[0]\n";
2555714Skris	}
2655714Skris
2755714Skris	# Playing it safe...
2855714Skris	$new="$_.new";
2955714Skris	open(OUT,">$new") || die "unable to open $dir/$new:$!\n";
3055714Skris	print OUT @a;
3155714Skris	close(OUT);
3255714Skris
3355714Skris	rename($new,$_) || die "unable to rename $dir/$new:$!\n";
3455714Skris	chmod(0755,$_) || die "unable to chmod $dir/$new:$!\n";
3555714Skris	}
36