Update of /cvsroot/net-script/netscript2/src/perl/XML/DOM2
In directory usw-pr-cvs1:/tmp/cvs-serv19675
Modified Files:
NodeList.pm
Log Message:
* added removeAll operation
Index: NodeList.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/NodeList.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** NodeList.pm 2001/10/03 19:52:23 1.4
--- NodeList.pm 2001/12/03 21:18:42 1.5
***************
*** 185,188 ****
}
!
!
--- 185,196 ----
}
! #/**
! # Removes all entries of this node list.
! # @not-standard
! # @public
! #*/
! sub removeAll {
! my ($this) = @_;
! my @emptyList = ();
! $this -> { m_nodeList } = \@emptyList;
! }
|
