[NetScript CVS] CVS: netscript2/src/perl/NetScript Interpreter.pm,1.12,1.13

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

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

Modified Files:
	Interpreter.pm 
Log Message:
* added documentation

Index: Interpreter.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Interpreter.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** Interpreter.pm	24 Sep 2002 22:22:49 -0000	1.12
--- Interpreter.pm	26 Oct 2002 21:09:35 -0000	1.13
***************
*** 379,386 ****
      my $domparser = $this -> { m_DOMParser };
      my $dom = undef;
!     eval {
          $dom = $domparser -> parseString( $scriptContent );
!         };
!     if ( $@ ) {
          my $string = $@;
          $string =~ s/&/&/g;
--- 379,386 ----
      my $domparser = $this -> { m_DOMParser };
      my $dom = undef;
!     unless ( eval {
          $dom = $domparser -> parseString( $scriptContent );
!         1;
!         } ) { 
          my $string = $@;
          $string =~ s/&/&/g;
***************
*** 392,396 ****
                  "Error while parsing the input file: " . $string );
          }
- 
      # Create a DOMWalker
      my $domwalker = NetScript::Engine::DOMWalker -> new( $this );
--- 392,395 ----