Mercurial > dropbear
comparison libtomcrypt/fixupind.pl @ 415:8b9aba1d5fa4 channel-fix
merge of '73fe066c5d9e2395354ba74756124d45c978a04d'
and 'f5014cc84558f1e8eba42dbecf9f72f94bfe6134'
| author | Matt Johnston <matt@ucc.asn.au> |
|---|---|
| date | Tue, 06 Feb 2007 16:00:18 +0000 |
| parents | 0cbe8f6dbf9e |
| children |
comparison
equal
deleted
inserted
replaced
| 414:c53a26c430e5 | 415:8b9aba1d5fa4 |
|---|---|
| 1 open(IN,"<crypt.ind"); | |
| 2 open(OUT,">crypt.ind.tmp"); | |
| 3 $a = <IN>; | |
| 4 print OUT "$a\n\\addcontentsline{toc}{chapter}{Index}\n"; | |
| 5 while (<IN>) { | |
| 6 print OUT $_; | |
| 7 } | |
| 8 close OUT; | |
| 9 close IN; | |
| 10 system("mv -f crypt.ind.tmp crypt.ind"); | |
| 11 |