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!
}
|
