[NetScript CVS] CVS: netscript2/src/perl/XML/DOM2 Node.pm,1.7,1.8

[Jan T. <de...@us...>]

Update of /cvsroot/net-script/netscript2/src/perl/XML/DOM2
In directory usw-pr-cvs1:/tmp/cvs-serv19823

Modified Files:
	Node.pm 
Log Message:
* bugfixes

Index: Node.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Node.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** Node.pm	2001/11/29 21:43:08	1.7
--- Node.pm	2001/12/03 21:19:04	1.8
***************
*** 55,62 ****
      
      $this -> { m_childNodes } = XML::DOM2::NodeList -> new ();
-     $this -> { m_nodeType } = undef;
      $this -> { m_ownerDocument } = undef;
      $this -> { m_parentNode } = undef;   
      $this -> { m_prefix } = undef; 
      $this -> { m_nextSibling } = undef;
      $this -> { m_previousSibling } = undef;
--- 55,63 ----
      
      $this -> { m_childNodes } = XML::DOM2::NodeList -> new ();
      $this -> { m_ownerDocument } = undef;
      $this -> { m_parentNode } = undef;   
      $this -> { m_prefix } = undef; 
+     $this -> { m_namespaceURI } = undef;
+     $this -> { m_localName } = undef;
      $this -> { m_nextSibling } = undef;
      $this -> { m_previousSibling } = undef;
***************
*** 72,75 ****
--- 73,78 ----
  #       Node is not of type ELEMENT_NODE.
  # @public
+ # Implementation is left to the subclass. This implementation
+ # returns undef.
  #*/
  sub attributes {
***************
*** 83,86 ****
--- 86,90 ----
  # @return an instance of XML::DOM2::NodeList.
  # @public
+ # @final
  #*/
  sub childNodes {
***************
*** 96,99 ****
--- 100,104 ----
  #       node has no children.
  # @public
+ # @final
  #*/
  sub firstChild {
***************
*** 140,144 ****
  #*/
  sub localName {
!     undef;
      }
  
--- 145,150 ----
  #*/
  sub localName {
!     my ($this) = @_;
!     $this -> { m_localName };
      }
  
***************
*** 156,160 ****
  #*/
  sub namespaceURI {
!     undef;
      }
  
--- 162,166 ----
  #*/
  sub namespaceURI {
!     $this -> { m_namespaceURI };
      }
  
***************
*** 165,168 ****
--- 171,175 ----
  # @return an instance of XML::DOM2::Node or undef.
  # @public
+ # @final
  #*/
  sub nextSibling {
***************
*** 176,179 ****
--- 183,187 ----
  # @return a scalar containing the name of this node.
  # @public
+ # @final
  #*/
  sub nodeName {
***************
*** 196,203 ****
  # @return a scalar holding the node type.
  # @public
  #*/
  sub nodeType {
!     my ( $this ) = @_;
!     $this -> { m_nodeType };
      } 
  
--- 204,214 ----
  # @return a scalar holding the node type.
  # @public
+ # Implementation is left to the subclasses. This implementation 
+ # returns undef.
  #*/
  sub nodeType {
! #    my ( $this ) = @_;
! #    $this -> { m_nodeType };
!     undef;
      }