#!/usr/local/bin/perl
# Do global case lowering for John Olson's patches ;)
# Should get everything, if not add to it.
#
# Ex:  fixpatch < patch.orig > patch.fixed
#
# -Fusion

while( $line = <STDIN> ) {
	while( $line =~
			/[_0-9A-Z]+(\.CC|\.H|\.ARE)|\/ETC|\/SRC|\/AREA|\/HELP|\/DOC/g )
	{
		$pos = index( $line, $& );
		$lower = lc( $& );
		substr( $line, $pos ) = $lower;
	}
	print( $line );
}