#!/usr/bin/perl -p

s/\x0D$//;

if (/^\/\/Tred:Custom-Attribute:/) {

    unless ($seen++ or /^\/\/Tred:Custom-Attribute:cvs: \$Revision:[^\$]*\$ \$Date:[^\$]*\$/) {

	$_ =  '//Tred:Custom-Attribute:cvs: $Revision: $ $Date: $' . "\n" . $_;
    }
}

$seen = 0 if eof;
