#!/afs/athena/contrib/perl/perl

$base = "./";
@locs = ("doc", "filter", "lib", "src", "utils");

foreach $loc (@locs) { 
	&foo($base.$loc."/Makefile"); }

sub foo {
	print "Fixing @_[0]...";
	open(MAKIN, @_[0]);
	while (<MAKIN>) {
		$_ =~ s/^(\s*)\$\(CHGRP\)/#$1\$\(CHGRP\)/ ;
		$_ =~ s/^(\s*)\$\(CHMOD\) u\+s/#$1\$\(CHMOD\) u\+s/ ;
		$lines .= $_ ;
	}
	close(MAKIN);
	open(MAKOUT, ">@_[0]");
	print MAKOUT "$lines";
	close(MAKOUT);
	print "done.\n";
}