#!/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 ); }