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 ) ) {
|
