bin/cvsbranchdiff-collapse

   1 #! /usr/bin/perl
   2 #
   3 # $Id$
   4
   5
   6 use strict;
   7 use warnings;
   8
   9 undef $/;
  10 $_=<>;
  11 while (s/^(cp -p .+); cvs add -kk (.+)\n((?:cp -p .+\n)*)(cp -p .*); cvs add -kk (.+)$/$1\n$3$4; cvs add -kk $2 $5/gm) {
  12         print STDERR ".\n";
  13 }
  14 print;