Oh Wise Monks --

I've tried it 10 different ways, and I still can't manage to replace a node in an XML::LibXML::Document. The document ($results) is the output of an XML::LibXSLT stylesheet transformation, and all I want to do is turn any text inside of <hti:wrap></hti:wrap> tags into a text node. Unfortunately, my replaceChild calls are simply ignored; the old nodes remain and the new ones vanish.

Using replaceNode, insertBefore, or insertAfter instead gives me "Use of uninitialized value in subroutine entry". addChild does put the new text nodes into the tree, but appendChild is ignored entirely.

my $results = $stylesheet->transform($source);

# Now grab any elements in our namespace
my @nodelist = $results->getElementsByTagNameNS($XMLNS, "*");
foreach my $node (@nodelist) {
    my $newnode;
    
    switch ($node->localname()) {
        case('wrap') {
            # Pass this all through the Text::Wrap engine.
            my $sourcetext = $node->textContent();
            my $tab = $node->getAttribute('tab') || "\t";
            my $first_tab = $node->getAttribute('firsttab') || $tab;
            
            my $wrapped_text = wrap($first_tab, $tab, $sourcetext);
            $newnode = XML::LibXML::Text->new($wrapped_text);
        }
        else {
            die "Unknown processing directive $XMLNS:" . $node->localn
+ame() . "\n";
        }
    }
    
    if (defined $newnode) {
        my $parent = $node->parentNode();
        $parent->replaceChild($newnode, $node);
    }
}
[download]

Any help would be greatly appreciated. I'm running this under Windows XP; not quite sure what problems libxml may have for me this way.

Thanks,
Rob