[NetScript CVS] CVS: netscript2/src/perl/NetScript Interpreter.pm,1.17,1.18

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

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

Modified Files:
	Interpreter.pm 
Log Message:
* some small fixes for 5.6.0 compatibility

Index: Interpreter.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Interpreter.pm,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** Interpreter.pm	31 May 2003 22:39:32 -0000	1.17
--- Interpreter.pm	1 Jun 2003 13:34:03 -0000	1.18
***************
*** 133,140 ****
  sub handler {
      eval {
!         use Apache::Constants;
!         use Apache;
          };
! 
      my ($request) = @_;
      my $configFile = $request -> dir_config( "NetScriptConfigFile" );
--- 133,142 ----
  sub handler {
      eval {
!         require Apache::Constants;
!         import Apache::Constants;
!         require Apache;
!         import Apache;
          };
!     warn( "handler called!" );
      my ($request) = @_;
      my $configFile = $request -> dir_config( "NetScriptConfigFile" );
***************
*** 142,146 ****
      my $interpreter = NetScript::Interpreter -> new( $request );
      $interpreter -> run();
!     return OK;
  }
  
--- 144,148 ----
      my $interpreter = NetScript::Interpreter -> new( $request );
      $interpreter -> run();
!     return "OK";
  }