#!/bin/sh
perl -MFile::Find -le'find({no_chdir=>1, wanted=>sub{/\.c(?:pp)?$/||/\.h$/ or return;sysopen(Z,$_,0) && sysseek(Z,-1,2) && sysread(Z,$c,1) && close(Z) or warn("$_: $!\n"),return;$c eq "\n" or push@f,$_}},$ENV{DEV});@f||exit;@ARGV=@f;$^I="";while(<>){chomp;print;eof && warn "Fixed $ARGV\n"}'