#!/usr/bin/perl -pi.bak -w

# replaces bits like $RCSfile: Constants.idl,v $ with $RCSfile$ etc.
# so that patches generated from cws-extract don't get nobbled by diffs that
# include that info ( e.g very important with files that are deleted where
# it doesn't make sense for example to use cvsclean

for $subs ('RCSfile', 'Revision', 'Author', 'Date', 'Header', 'Id') {
    s/\$$subs:[^\$]+\$/\$$subs\$/;
}
