Documentation/fix-texi.perl

   1 #!/usr/bin/perl -w
   2
   3 while (<>) {
   4         if (/^\@setfilename/) {
   5                 $_ = "\@setfilename git.info\n";
   6         } elsif (/^\@direntry/) {
   7                 print '@dircategory Development
   8 @direntry
   9 * Git: (git).           A fast distributed revision control system
  10 @end direntry
  11 ';      }
  12         unless (/^\@direntry/../^\@end direntry/) {
  13                 print;
  14         }
  15 }