[NetScript CVS] CVS: netscript2/src/perl/NetScript/Engine DOMWalker.pm,1.9,1.10

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

Update of /cvsroot/net-script/netscript2/src/perl/NetScript/Engine
In directory usw-pr-cvs1:/tmp/cvs-serv18518

Modified Files:
	DOMWalker.pm 
Log Message:
* fixed severe bug, which obfuscated the document structure

Index: DOMWalker.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Engine/DOMWalker.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** DOMWalker.pm	18 Sep 2002 13:19:14 -0000	1.9
--- DOMWalker.pm	24 Sep 2002 22:21:18 -0000	1.10
***************
*** 357,360 ****
--- 357,364 ----
          my $nextSource = $source -> getNextSibling();
          unless ( $nextSource ) {
+             $this -> finishNode( $source );
+             if ( $this -> sourceNodeChanged() ) {
+                 return;
+                 }
              my $parent = $source -> getParentNode();
              while ( defined( $parent ) && !defined( $nextSource ) ) {