summaryrefslogtreecommitdiff
path: root/IkiWiki
diff options
context:
space:
mode:
authorjoey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071>2006-08-17 20:39:00 +0000
committerjoey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071>2006-08-17 20:39:00 +0000
commit480a49af4755ae42d409ed351f99219cee846638 (patch)
tree5fd5e1c3ed9621b4a1b14fec0e79cf60f239cedd /IkiWiki
parent24fcf2b97d86debeb27ab4ab46a6bc0a2f23f2b2 (diff)
* Catch failing IPC::Open2 in tidy plugin and retry in case this is a
transient failure to fork (which I've seen happen in the wild).
Diffstat (limited to 'IkiWiki')
-rw-r--r--IkiWiki/Plugin/htmltidy.pm13
1 files changed, 12 insertions, 1 deletions
diff --git a/IkiWiki/Plugin/htmltidy.pm b/IkiWiki/Plugin/htmltidy.pm
index e39297319..eb8f9d3d3 100644
--- a/IkiWiki/Plugin/htmltidy.pm
+++ b/IkiWiki/Plugin/htmltidy.pm
@@ -17,7 +17,18 @@ sub import { #{{{
} # }}}
sub sanitize ($) { #{{{
- open2(*IN, *OUT, 'tidy -quiet -asxhtml -utf8 --show-body-only yes --show-warnings no --tidy-mark no') or return shift;
+ 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;
+ }
+ }
# open2 doesn't respect "use open ':utf8'"
binmode (IN, ':utf8');
binmode (OUT, ':utf8');