David Kastrup | 4739809 | 2007-08-06 12:22:57 +0200 | [diff] [blame] | 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 | } |