perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From ge...@apache.org
Subject cvs commit: modperl/t/net/perl api.pl
Date Sun, 24 Mar 2002 18:22:56 GMT
geoff       02/03/24 10:22:56

  Modified:    .        Changes STATUS
               src/modules/perl mod_perl.c
               t/net/perl api.pl
  Log:
  make sure PerlSetEnv variables are visible after first access
  to each child, and add tests to verify fix
  
  Submitted by: geoff
  Reviewed by: doug
  
  Revision  Changes    Path
  1.628     +3 -0      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl/Changes,v
  retrieving revision 1.627
  retrieving revision 1.628
  diff -u -r1.627 -r1.628
  --- Changes	24 Mar 2002 02:07:58 -0000	1.627
  +++ Changes	24 Mar 2002 18:22:56 -0000	1.628
  @@ -10,6 +10,9 @@
   
   =item 1.26_01-dev
   
  +make sure PerlSetEnv variables are visible after first access
  +to each child [Geoff Young <geoff@modperlcookbook.org>]
  +
   workaround Apache::Constants::AUTOLOAD problem with bleedperl
   
   the first flag argument to perl cannot start with space, since perl tries 
  
  
  
  1.5       +1 -10     modperl/STATUS
  
  Index: STATUS
  ===================================================================
  RCS file: /home/cvs/modperl/STATUS,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- STATUS	24 Mar 2002 02:17:09 -0000	1.4
  +++ STATUS	24 Mar 2002 18:22:56 -0000	1.5
  @@ -1,5 +1,5 @@
   mod_perl 1.3 STATUS:
  -   Last modified at [$Date: 2002/03/24 02:17:09 $]
  +   Last modified at [$Date: 2002/03/24 18:22:56 $]
   
   
   Release:
  @@ -20,15 +20,6 @@
           Report: http://marc.theaimsgroup.com/?l=apache-modperl&m=97449481013350&w=2
   	Status: 
             doc patch at http://marc.theaimsgroup.com/?l=apache-modperl&m=97450363501652&w=2
  -
  -    * PerlSetEnv scoping
  -        Report: http://marc.theaimsgroup.com/?l=apache-modperl&m=99148497206388&w=2
  -	Status:
  -          may be fixed here
  -            http://marc.theaimsgroup.com/?l=apache-modperl&m=99473571809129&w=2
  -          but that patch has this issue (I think)
  -            http://marc.theaimsgroup.com/?l=apache-modperl&m=99565226811557&w=2
  -          --Geoff
   
       * %LocationMatch <Perl> bug
           Report: http://marc.theaimsgroup.com/?l=apache-modperl&m=98260537428737&w=2
  
  
  
  1.142     +1 -0      modperl/src/modules/perl/mod_perl.c
  
  Index: mod_perl.c
  ===================================================================
  RCS file: /home/cvs/modperl/src/modules/perl/mod_perl.c,v
  retrieving revision 1.141
  retrieving revision 1.142
  diff -u -r1.141 -r1.142
  --- mod_perl.c	10 Jul 2001 03:30:27 -0000	1.141
  +++ mod_perl.c	24 Mar 2002 18:22:56 -0000	1.142
  @@ -1392,6 +1392,7 @@
           /* PerlSetEnv
            * update only if the table changes across a request
            */
  +        MP_HASENV_on(cld);
           mod_perl_dir_env(r, cld);
           cfg->dir_env = cld->env;
       }
  
  
  
  1.48      +2 -1      modperl/t/net/perl/api.pl
  
  Index: api.pl
  ===================================================================
  RCS file: /home/cvs/modperl/t/net/perl/api.pl,v
  retrieving revision 1.47
  retrieving revision 1.48
  diff -u -r1.47 -r1.48
  --- api.pl	6 Jul 2001 16:09:53 -0000	1.47
  +++ api.pl	24 Mar 2002 18:22:56 -0000	1.48
  @@ -16,7 +16,7 @@
   
   my $is_xs = ($r->uri =~ /_xs/);
   
  -my $tests = 74;
  +my $tests = 75;
   my $is_win32 = WIN32;
   $tests += 4 unless $is_win32;
   my $test_get_set = Apache->can('set_handlers') && ($tests += 4);
  @@ -94,6 +94,7 @@
   
   test ++$i, $r->last;
   test ++$i, $ENV{GATEWAY_INTERFACE};
  +test ++$i, defined $ENV{KeyForPerlSetEnv};
   test ++$i, scalar $r->cgi_var('GATEWAY_INTERFACE');
   test ++$i, defined($r->seqno);
   test ++$i, $r->protocol;
  
  
  

Mime
View raw message