From: Jan T. <de...@us...> - 2001-12-03 21:18:44
|
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; ! } |