#!/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

    s/\$RCSfile.*\$/\$RCSfile\$/;
    s/\$Revision.*\$/\$Revision\$/;
    s/\$Author:.*\$ \$/\$Author\$ \$/;
    s/\$Date:.*\$/\$Date\$/;