Recover from working copy after CVS crash

[fiction/origanda.git] / fix.pl

#!/usr/bin/perl -i

while (<>) {
 print "\n" if /^\s+/;
 s/^\s+//;
 while (/[À-ß]-$/) {
   chop;chop;
   $_ .= <>;
 }
 s/^- ?/--- /;
 s/ +- +/~--- /g;
 s/ +-$/~---/g;
 s/\.\.\./\\ldots/g;
 print;
}