blob: ff7d78f620a35fb66c47e50c4eceecff00b643b3 [file] [log] [blame]
David Kastrup47398092007-08-06 12:22:57 +02001#!/usr/bin/perl -w
2
3while (<>) {
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}