Re^3: XML::Twig removing tags from content (XML::Twig)

in reply to Re^2: XML::Twig removing tags from content (XML::Twig)
in thread XML::Twig removing tags from content

To answer my own question, using reverse seems to fix the problem:

    for my $p ($elt->children('p')) {
        for my $c (reverse($p->cut_children())) {
            $c->paste($elt);
        }
        $p->delete();
    }
[download]

I don't understand why it's needed, but it works.

In Section Seekers of Perl Wisdom