Mercurial > dropbear
view libtomcrypt/fixupind.pl @ 531:164b7c2cd5df
disapproval of revision 'a101cbd046507cf723e6362a49196dbd4b924042'
author | Matt Johnston <matt@ucc.asn.au> |
---|---|
date | Thu, 26 Feb 2009 13:20:53 +0000 |
parents | 0cbe8f6dbf9e |
children |
line wrap: on
line source
open(IN,"<crypt.ind"); open(OUT,">crypt.ind.tmp"); $a = <IN>; print OUT "$a\n\\addcontentsline{toc}{chapter}{Index}\n"; while (<IN>) { print OUT $_; } close OUT; close IN; system("mv -f crypt.ind.tmp crypt.ind");