chiark / gitweb /
fix spelling of defence in changelog
[chiark-tcl.git] / debian / extractdoc
1 #!/usr/bin/perl -w
2 $o= '';
3 for (;;) {
4     exit 0 unless defined ($_= <STDIN>);
5     $o .= $_;
6     last if / \-\-\-8\<\-\-\- end of documentation /;
7 }
8 ($before, $_, $after)= @ARGV;
9 s,.*/,,;
10 $of= $before.$_.$after;
11 open F, "> $of" or die $!;
12 print F $o or die $!;
13 close F or die $!;
14 print " wrote $of\n" or die $!;