#!/usr/bin/perl my $path = shift; open(FO, "<$path") || die "open(\"<$path\"): $!"; open(FN, ">$path.new") || die "open(\">$path.new\"): $!"; while (<FO>) { if (/^permissions\s+\d+;$/) { next; } if (/^commitid\s+[a-f\d]+;$/) { next; } if (/^kopt\s+[a-z]+;$/) { next; } if (/^deltatype\s+[a-z]+;$/) { next; } print FN; if (/^desc$/) { last; } } while (<FO>) { print FN; } rename($path, "$path.old") || die; rename("$path.new", "$path") || die; exit 0;
# | Change | User | Description | Committed | |
---|---|---|---|---|---|
#1 | 5093 | Hari Krishna Dara |
Populating perforce branch. I will be adding p4admin files to it. |
||
//guest/perforce_software/utils/cvs2p4/bin/rcsfixup | |||||
#1 | 4354 | Richard Geiger | Integrate 2.4 changes. | ||
//guest/richard_geiger/utils/cvs2p4/bin/rcsfixup | |||||
#1 | 4279 | Richard Geiger | Add rcsfixup to strip RCS lines that Perforce won't like... |