--- lib/XML/DOM/NamedNodeMap.pm.orig	2003-09-05 16:18:59 +0400

+++ lib/XML/DOM/NamedNodeMap.pm	2003-09-05 16:15:28 +0400

@@ -43,10 +43,10 @@

 	    if $self->isReadOnly;

 	croak new XML::DOM::DOMException (WRONG_DOCUMENT_ERR)

-	    if $node->[XML::DOM::Node::_Doc] != $prop->{Doc};

+	    if $node->[&XML::DOM::Node::_Doc] != $prop->{Doc};

 	croak new XML::DOM::DOMException (INUSE_ATTRIBUTE_ERR)

-	    if defined ($node->[XML::DOM::Node::_UsedIn]);

+	    if defined ($node->[&XML::DOM::Node::_UsedIn]);

 	croak new XML::DOM::DOMException (INVALID_CHARACTER_ERR,

 		      "can't add name with NodeName [$name] to NamedNodeMap")

@@ -72,7 +72,7 @@

     }

     $self->{$name} = $node;    

-    $node->[XML::DOM::Node::_UsedIn] = $self;

+    $node->[&XML::DOM::Node::_UsedIn] = $self;

     if ($index == -1)

     {

@@ -162,7 +162,7 @@

 	my $key = $val->getNodeName;

 	my $newNode = $val->cloneNode ($deep);

-	$newNode->[XML::DOM::Node::_UsedIn] = $map;

+	$newNode->[&XML::DOM::Node::_UsedIn] = $map;

 	$map->{$key} = $newNode;

 	push (@{$map->{$Special}->{Values}}, $newNode);

     }

@@ -207,7 +207,7 @@

     for my $kid (@{$self->getValues})

     {

-	undef $kid->[XML::DOM::Node::_UsedIn]; # was delete

+	undef $kid->[&XML::DOM::Node::_UsedIn]; # was delete

 	$kid->dispose;

     }