# find base -name '*.h' -exec perl -pi repragma.pl {} \;
# find chrome -name '*.h' -exec perl -pi repragma.pl {} \;
# find gfx -name '*.h' -exec perl -pi repragma.pl {} \;
# find chrome/common -name '*_messages_internal.h' -exec svn revert {} \;
# find chrome/browser -name '*_messages_internal.h' -exec svn revert {} \;  # importer :-/
# find chrome/test -name '*_messages_internal.h' -exec svn revert {} \;
#    (see ipc_message_macros.h for why)
if ($. == 1) {
  $_ = "#pragma once\n" . $_;
}