perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From sbek...@locus.apache.org
Subject cvs commit: modperl/eg startup.pl
Date Wed, 19 Apr 2000 12:46:41 GMT
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);
   
  
  
  

Mime
View raw message