You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@hyperreal.org on 1998/11/30 02:30:52 UTC
cvs commit: modperl/src/modules/perl perl_config.c perl_util.c
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);
}