cvs commit: modperl/eg startup.pl

[sbekman]

sbekman     00/04/19 05:46:40

  Modified:    eg       startup.pl
  Log:
  sane env check example
  
  Revision  Changes    Path
  1.3       +3 -0      modperl/eg/startup.pl
  
  Index: startup.pl
  ===================================================================
  RCS file: /home/cvs/modperl/eg/startup.pl,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- startup.pl        1998/03/19 23:08:30     1.2
  +++ startup.pl        2000/04/19 12:46:39     1.3
  @@ -12,6 +12,9 @@
   #add this to srm.conf:
   #PerlRequire scripts/startup.pl
   
  +# make sure we are in a sane environment.
  +$ENV{GATEWAY_INTERFACE} =~ /^CGI-Perl/ or die "GATEWAY_INTERFACE not Perl!";
  +
   #modify @INC if needed
   #use lib qw(/foo/perl/lib);