about summary refs log blame commit diff
path: root/Documentation/fix-texi.perl
blob: ff7d78f620a35fb66c47e50c4eceecff00b643b3 (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15














                                                                  
#!/usr/bin/perl -w

while (<>) {
	if (/^\@setfilename/) {
		$_ = "\@setfilename git.info\n";
	} elsif (/^\@direntry/) {
		print '@dircategory Development
@direntry
* Git: (git).           A fast distributed revision control system
@end direntry
';	}
	unless (/^\@direntry/../^\@end direntry/) {
		print;
	}
}