Source

mutated_ocaml / 0CLEANDIFF

Full commit
#!/usr/bin/perl

while(<>){
  START:
    if( /^diff.*\/CVS\/.*/ ){
	while(<>){
	    if( /^diff/ ){
		goto START;
	    }
	}
    } 
    print $_;
}