[Sab]

[Albert]

fixing HIERARCHY_REQUEST_ERR at replaceChild with ELEMENT_NODE


package XML::Sablotron::DOM::Document;

sub replaceChild($$;$)
{
    my ($self, $child, $old_child, $situa) = @_;

    return $self->SUPER::replaceChild( $child, $old_child, $situa ) unless
        $child->nodeType == XML::Sablotron::DOM::ELEMENT_NODE;

    my $next = $old_child->getNextSibling( $situa );
    $self->removeChild( $old_child, $situa );
    $self->insertBefore( $child, $next || undef, $situa );

    return $child;
}

Best regards,
             Albert                            mailto:[EMAIL PROTECTED]