commas

[git.ikiwiki.info.git] / IkiWiki / Plugin / otl.pm
diff --git a/IkiWiki/Plugin/otl.pm b/IkiWiki/Plugin/otl.pm

index be339c88ebee44b77371422822ae4816a102cd5e..0cd93a3ecc773248e82e9180f7ae8a6c319198fa 100644 (file)
--- a/IkiWiki/Plugin/otl.pm
+++ b/IkiWiki/Plugin/otl.pm
@@ -31,9 +31,10 @@ sub htmlize (@) { #{{{
         my %params=@_;
  
         my $tries=10;
+       my $pid;
         while (1) {
                 eval {
-                       open2(*IN, *OUT, 'otl2html -S /dev/null -T /dev/stdin');
+                       $pid=open2(*IN, *OUT, 'otl2html -S /dev/null -T /dev/stdin');
                 };
                 last unless $@;
                 $tries--;
@@ -51,6 +52,9 @@ sub htmlize (@) { #{{{
  
         local $/ = undef;
         my $ret=<IN>;
+       close IN;
+       waitpid $pid, 0;
+
         $ret=~s/.*<body>//s;
         $ret=~s/<body>.*//s;
         $ret=~s/<div class="Footer">.*//s;