dougm 00/04/04 21:05:02
Modified: . Changes
Apache Apache.pm
src/modules/perl perl_util.c
Log:
Apache::Table is now loaded by default (if enabled), rather than
autoloading when first needed
Revision Changes Path
1.459 +3 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl/Changes,v
retrieving revision 1.458
retrieving revision 1.459
diff -u -r1.458 -r1.459
--- Changes 2000/04/03 05:41:29 1.458
+++ Changes 2000/04/05 04:04:59 1.459
@@ -10,6 +10,9 @@
=item 1.22_01-dev
+Apache::Table is now loaded by default (if enabled), rather than
+autoloading when first needed
+
$r->document_root can now be modified
upgrade license to apache software license version 1.1
1.45 +2 -0 modperl/Apache/Apache.pm
Index: Apache.pm
===================================================================
RCS file: /home/cvs/modperl/Apache/Apache.pm,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -r1.44 -r1.45
--- Apache.pm 2000/03/31 17:07:23 1.44
+++ Apache.pm 2000/04/05 04:05:00 1.45
@@ -7,6 +7,8 @@
use Apache::Connection ();
use Apache::Server ();
+eval { require Apache::Table; };
+
@Apache::EXPORT_OK = qw(exit warn);
*import = \&Exporter::import;
1.40 +0 -14 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.39
retrieving revision 1.40
diff -u -r1.39 -r1.40
--- perl_util.c 2000/04/03 04:48:53 1.39
+++ perl_util.c 2000/04/05 04:05:01 1.40
@@ -232,24 +232,10 @@
return newRV_noinc(insv);
}
-#ifndef load_module
-#define load_module(flags, name, ver, imp) \
-{ \
- OP *modname = newSVOP(OP_CONST, 0, name); \
- modname->op_private |= OPpCONST_BARE; \
- utilize(TRUE, start_subparse(FALSE,0), Nullop, modname, Nullop); \
-}
-#endif
-
SV *mod_perl_tie_table(table *t)
{
HV *hv = newHV();
SV *sv = sv_newmortal();
-
- /*try to make this quick as possible*/
- if(!hv_exists(GvHV(incgv), "Apache/Table.pm", 15)) {
- load_module(0, newSVpv("Apache::Table",0), Nullsv, Nullsv);
- }
sv_setref_pv(sv, "Apache::table", (void*)t);
perl_tie_hash(hv, "Apache::Table", sv);
