[NetScript CVS] CVS: netscript2/src/perl/NetScript/Libraries FormsLibrary.pm,1.7,1.8

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

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

Modified Files:
	FormsLibrary.pm 
Log Message:
* fixed infinite loop bug

Index: FormsLibrary.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries/FormsLibrary.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** FormsLibrary.pm	24 Sep 2002 22:22:03 -0000	1.7
--- FormsLibrary.pm	29 Oct 2002 10:35:35 -0000	1.8
***************
*** 246,249 ****
--- 246,250 ----
              $se -> setVariable( $bytes, -3 );
              }
+         $domWalker -> stepSourceNext();
          return;
          }
***************
*** 264,267 ****
--- 265,269 ----
  warn("[webfunctions] Warning: file ",$filename, " does exist. File upload skipped.\n");
              $se -> setVariable( $bytes, -2 );
+             $domWalker -> stepSourceNext();
              return;
              }
***************
*** 303,306 ****
--- 305,309 ----
          }
  warn("[webfunctions] Info: file upload complete. Read $overallsize bytes.\n");
+     $domWalker -> stepSourceNext();
      }