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