perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@hyperreal.org
Subject cvs commit: modperl/src/modules/perl perl_config.c perl_util.c
Date Mon, 30 Nov 1998 01:30:52 GMT
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);
       }
  
  
  

Mime
View raw message