[thirdparty/git.git] / Documentation / fix-texi.perl

#!/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;
	}
}
Commit	Line	Data
4739809c DK	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	}