Return-Path: <modperl-cvs-owner-modperl-cvs-archive=hyperreal.org@apache.org>
Delivered-To: modperl-cvs-archive@hyperreal.org
Received: (qmail 15291 invoked by uid 6000); 30 Nov 1998 01:30:54 -0000
Received: (qmail 15284 invoked by uid 169); 30 Nov 1998 01:30:52 -0000
Date: 30 Nov 1998 01:30:52 -0000
Message-ID: <19981130013052.15283.qmail@hyperreal.org>
From: dougm@hyperreal.org
To: modperl-cvs@hyperreal.org
Subject: cvs commit: modperl/src/modules/perl perl_config.c perl_util.c
Sender: modperl-cvs-owner@apache.org
Precedence: bulk
Reply-To: modperl-cvs@apache.org

dougm       98/11/29 17:30:52

  Modified:    .        Changes
               src/modules/perl perl_config.c perl_util.c
  Log:
  when <Perl> sections empty a symbol table, don't clear imported/aliased
  variables (e.g. %Config::Config)
  
  remove warning if Apache::Table was not already loaded
  
  Revision  Changes    Path
  1.214     +5 -0      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl/Changes,v
  retrieving revision 1.213
  retrieving revision 1.214
  diff -u -r1.213 -r1.214
  --- Changes	1998/11/28 00:25:43	1.213
  +++ Changes	1998/11/30 01:30:49	1.214
  @@ -8,6 +8,11 @@
   
   =item 1.16_02-dev
   
  +when <Perl> sections empty a symbol table, don't clear imported/aliased
  +variables (e.g. %Config::Config)
  +
  +remove warning if Apache::Table was not already loaded
  +
   sv2request_rec (Apache typemap) will look for '~' so xs modules can
   subclass without using a HASH ref (e.g. Apache::Request NG)
   
  
  
  
  1.55      +1 -1      modperl/src/modules/perl/perl_config.c
  
  Index: perl_config.c
  ===================================================================
  RCS file: /home/cvs/modperl/src/modules/perl/perl_config.c,v
  retrieving revision 1.54
  retrieving revision 1.55
  diff -u -r1.54 -r1.55
  --- perl_config.c	1998/11/25 03:31:42	1.54
  +++ perl_config.c	1998/11/30 01:30:51	1.55
  @@ -1497,7 +1497,7 @@
   	HV *hv;
   	AV *av;
   
  -	if(SvTYPE(val) != SVt_PVGV) 
  +	if((SvTYPE(val) != SVt_PVGV) || GvIMPORTED((GV*)val))
   	    continue;
   	if((sv = GvSV((GV*)val)))
   	    sv_setsv(GvSV((GV*)val), &sv_undef);
  
  
  
  1.23      +0 -1      modperl/src/modules/perl/perl_util.c
  
  Index: perl_util.c
  ===================================================================
  RCS file: /home/cvs/modperl/src/modules/perl/perl_util.c,v
  retrieving revision 1.22
  retrieving revision 1.23
  diff -u -r1.22 -r1.23
  --- perl_util.c	1998/11/28 00:25:44	1.22
  +++ perl_util.c	1998/11/30 01:30:51	1.23
  @@ -232,7 +232,6 @@
   
       /*try to make this quick as possible*/  
       if(!hv_exists(GvHV(incgv), "Apache/Table.pm", 15)) {
  -	fprintf(stderr, "WARNING: autoloading Apache::Table\n");
   	utilize(TRUE, start_subparse(FALSE, 0), Nullop, 
   		newSVOP(OP_CONST, 0, newSVpv("Apache/Table.pm",15)), Nullop);
       }