-sub sanitize ($) { #{{{
- my $tries=10;
- while (1) {
- eval {
- open2(*IN, *OUT, 'tidy -quiet -asxhtml -utf8 --show-body-only yes --show-warnings no --tidy-mark no');
- };
- last unless $@;
- $tries--;
- if ($tries < 1) {
- IkiWiki::debug("failed to run tidy: $@");
- return shift;
- }
- }
+sub sanitize (@) { #{{{
+ my %params=@_;
+
+ my $pid;
+ my $sigpipe=0;
+ $SIG{PIPE}=sub { $sigpipe=1 };
+ $pid=open2(*IN, *OUT, 'tidy -quiet -asxhtml -utf8 --show-body-only yes --show-warnings no --tidy-mark no --markup yes');
+