[MKDoc-modules] [BUG] MKDoc::XML::Stripper not closing p elements

[Paul Arzul]

from the documentation:

---8<---
use MKDoc::XML::Stripper;

my $stripper = new MKDoc::XML::Stripper;
$stripper->allow (qw /p class id/);

my $ugly = '<p class="para" style="color:red">Hello, <strong>World</strong>!</p>';
my $neat = $stripper->process_data ($ugly);
print $neat;
 
Should print:
 
<p class="para">Hello, World!</p>
--->8---

but it doesn't. it prints:

<p class="para">Hello, World!
                             ^^^^

- p