[NetScript CVS] CVS: netscript2/src/perl/XML/DOM2 XMLDOMWriterStyle.pm,1.5,1.6

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

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

Modified Files:
	XMLDOMWriterStyle.pm 
Log Message:
* fixed a bug causing content from the last operation to be appended to content from the current operation

Index: XMLDOMWriterStyle.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/XMLDOMWriterStyle.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** XMLDOMWriterStyle.pm	8 Jun 2002 12:14:29 -0000	1.5
--- XMLDOMWriterStyle.pm	21 Aug 2002 10:37:49 -0000	1.6
***************
*** 41,45 ****
--- 41,54 ----
  sub init {
      my ($this) = @_;
+     $this -> clear();
      $this -> appendText( "<?xml version=\"1.0\"?>\n" );
+     }
+ 
+ #/**
+ # Zeroes the internal string representation of the DOM.
+ #*/
+ sub clear {
+     my ( $this ) = @_;
+     $this -> { m_representation } = ""; #empty!
      }