home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1997 May / PCO_5_97.ISO / FilesBBS / OS2 / OS2WWW42.ARJ / OS2WWW42 / OS2WWW42.ZIP / SYS402.R4 / PERL-BIN / WEBPERL.PM < prev   
Encoding:
Perl POD Document  |  1996-11-14  |  1.4 KB  |  64 lines
  1. package WebPerl;
  2.  
  3. # -------------------------------------------------------------------------
  4. # The WebPerl package interfaces between PowerWeb Server++ and Perl.
  5. # This package must only be loaded from within PowerWeb.
  6. # Do not modify this file in any way.
  7. #
  8. # Requirements:
  9. #
  10. #    1.    The library WebPerBA.DLL in the same directory.
  11. #    2.    Perl version 5.00301 or later.
  12. #
  13. # COPYRIGHT:
  14. #   CompuSource (Pty) Ltd
  15. #   Licensed Materials - Property of CompuSource (Pty) Ltd
  16. #   (C) Copyright CompuSource (Pty) Ltd 1994-1996.
  17. #   All Rights Reserved
  18. #   Use, duplication, or disclosure restricted by international
  19. #   copyright law.
  20. #
  21. # -------------------------------------------------------------------------
  22.  
  23. use strict 'subs', 'vars', 'untie';
  24. use vars qw($VERSION @ISA @EXPORT);
  25.  
  26. require Exporter;
  27. require DynaLoader;
  28.  
  29. @ISA = qw(Exporter DynaLoader);
  30. @EXPORT = qw();
  31.  
  32. $VERSION = '2.08';
  33.  
  34. bootstrap WebPerl $VERSION;
  35.  
  36. sub WebPerl::death
  37. {
  38.     die "Recovered From an Exception Violation within Perl.\n";
  39. }
  40.  
  41. sub WebPerl::evaluate
  42. {
  43.     package WebWrapper;
  44.     eval $_[0];
  45.     undef %WebWrapper::;
  46. }
  47.  
  48. sub WebPerl::evaluateFile
  49. {
  50.     package WebWrapper;
  51.     do $_[0];
  52.     undef %WebWrapper::;
  53. }
  54.  
  55. #$SIG{ZERO}    = 'WebPerl::death';
  56. $SIG{ILL}    = 'WebPerl::death';
  57. $SIG{TRAP}    = 'WebPerl::death';
  58. $SIG{FPE}    = 'WebPerl::death';
  59. $SIG{SEGV}    = 'WebPerl::death';
  60.  
  61. 1;
  62. __END__
  63.  
  64.