#!/bin/sh
perl -MFile::Find -e'find({no_chdir=>1,wanted=>sub{/\.c(?:pp)?$/||/\.h$/ or return;open(Z,"+>>",$_) or warn("$_: $!\n"),return;seek(Z,-1,2);<Z>eq"\n" or print(Z "\n"),warn("Fixed $_\n");close(Z)}},$ENV{DEV})'