X-Git-Url: https://sipb.mit.edu/gitweb.cgi/ikiwiki.git/blobdiff_plain/9b4d117eb1fbdc9112147c52d7bb77aab9ef6bdb..7f243ae21ae07f94efc11fbf943b46ddafe460c0:/IkiWiki/Plugin/htmltidy.pm

diff --git a/IkiWiki/Plugin/htmltidy.pm b/IkiWiki/Plugin/htmltidy.pm
index 079da7b49..c626250cb 100644
--- a/IkiWiki/Plugin/htmltidy.pm
+++ b/IkiWiki/Plugin/htmltidy.pm
@@ -20,9 +20,10 @@ sub sanitize (@) { #{{{
 	my %params=@_;
 
 	my $tries=10;
+	my $pid;
 	while (1) {
 		eval {
-			open2(*IN, *OUT, 'tidy -quiet -asxhtml -utf8 --show-body-only yes --show-warnings no --tidy-mark no');
+			$pid=open2(*IN, *OUT, 'tidy -quiet -asxhtml -utf8 --show-body-only yes --show-warnings no --tidy-mark no');
 		};
 		last unless $@;
 		$tries--;
@@ -39,7 +40,11 @@ sub sanitize (@) { #{{{
 	close OUT;
 
 	local $/ = undef;
-	return <IN>;
+	my $ret=<IN>;
+	close IN;
+	waitpid $pid, 0;
+
+	return $ret;
 } # }}}
 
 1