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/09/17 18:09:44 UTC
cvs commit: modperl/t/internal tie.t
dougm 98/09/17 09:09:42
Modified: . Changes Makefile.PL ToDo
apaci mod_perl.config mod_perl.config.sh
t/internal tie.t
Log:
s/PERL_TIE_TABLES/PERL_TABLE_API/g
Revision Changes Path
1.138 +3 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /export/home/cvs/modperl/Changes,v
retrieving revision 1.137
retrieving revision 1.138
diff -u -r1.137 -r1.138
--- Changes 1998/09/17 15:55:07 1.137
+++ Changes 1998/09/17 16:09:38 1.138
@@ -8,6 +8,9 @@
=item 1.15_01-dev
+
+s/PERL_TIE_TABLES/PERL_TABLE_API/g
+
fix Apache::URI so components can be properly undef-d, thanks to
Charles C. Fu for the spot
1.93 +7 -6 modperl/Makefile.PL
Index: Makefile.PL
===================================================================
RCS file: /export/home/cvs/modperl/Makefile.PL,v
retrieving revision 1.92
retrieving revision 1.93
diff -u -r1.92 -r1.93
--- Makefile.PL 1998/09/15 14:24:38 1.92
+++ Makefile.PL 1998/09/17 16:09:39 1.93
@@ -171,7 +171,7 @@
$CONFIG = "";
$ADD_MODULE = "";
$PERL_DIRECTIVE_HANDLERS = 0;
-$PERL_TIE_TABLES = 0;
+$PERL_TABLE_API = 0;
$PERL_LOG_API = 0;
$PERL_URI_API = 0;
$PERL_UTIL_API = 0;
@@ -223,7 +223,7 @@
PERL_STACKED_HANDLERS
PERL_METHOD_HANDLERS
PERL_DIRECTIVE_HANDLERS
- PERL_TIE_TABLES
+ PERL_TABLE_API
PERL_LOG_API
PERL_URI_API
PERL_UTIL_API
@@ -330,7 +330,8 @@
if($EVERYTHING) {
@callback_hooks{qw(PERL_STACKED_HANDLERS PERL_METHOD_HANDLERS)} = (1) x 2;
- for(qw(ALL_HOOKS PERL_SSI PERL_SECTIONS PERL_TIE_TABLES PERL_DIRECTIVE_HANDLERS PERL_LOG_API PERL_URI_API PERL_UTIL_API)) {
+ for(qw(ALL_HOOKS PERL_SSI PERL_SECTIONS PERL_DIRECTIVE_HANDLERS
+ PERL_LOG_API PERL_URI_API PERL_UTIL_API PERL_TABLE_API)) {
$$_ = 1;
}
}
@@ -343,7 +344,7 @@
}
if($DYNAMIC) {
- $PERL_DIRECTIVE_HANDLERS = $PERL_TIE_TABLES =
+ $PERL_DIRECTIVE_HANDLERS = $PERL_TABLE_API =
$PERL_LOG_API = $PERL_URI_API = $PERL_UTIL_API = 1;
}
@@ -561,9 +562,9 @@
push @xs_modules, "Apache::ModuleConfig";
$callback_hooks{PERL_DIRECTIVE_HANDLERS} = 1;
}
-if($PERL_TIE_TABLES) {
+if($PERL_TABLE_API) {
push @xs_modules, "Apache::Tie";
- $callback_hooks{PERL_TIE_TABLES} = 1;
+ $callback_hooks{PERL_TABLE_API} = 1;
}
if($PERL_RUN_XS or $experimental{PERL_RUN_XS} > 1) {
my $mmn = $USE_APXS ? MMN_130 : magic_number($APACHE_SRC);
1.82 +2 -2 modperl/ToDo
Index: ToDo
===================================================================
RCS file: /export/home/cvs/modperl/ToDo,v
retrieving revision 1.81
retrieving revision 1.82
diff -u -r1.81 -r1.82
--- ToDo 1998/09/17 15:55:09 1.81
+++ ToDo 1998/09/17 16:09:39 1.82
@@ -3,9 +3,9 @@
(well, close to it anyhow)
---------------------------------------------------------------------------
-- <Perl> should report failed config
+- Apache::PerlRun should save/restore %INC
-- PERL_TIE_TABLES -> PERL_TABLE_API
+- <Perl> should report failed config
- $ENV{PATH}
1.5 +0 -1 modperl/apaci/mod_perl.config
Index: mod_perl.config
===================================================================
RCS file: /export/home/cvs/modperl/apaci/mod_perl.config,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- mod_perl.config 1998/07/18 22:21:14 1.4
+++ mod_perl.config 1998/09/17 16:09:40 1.5
@@ -33,7 +33,6 @@
PERL_STACKED_HANDLERS = yes
PERL_METHOD_HANDLERS = yes
PERL_DIRECTIVE_HANDLERS = yes
-PERL_TIE_TABLES = yes
PERL_SECTIONS = yes
PERL_RESTART = yes
1.9 +1 -1 modperl/apaci/mod_perl.config.sh
Index: mod_perl.config.sh
===================================================================
RCS file: /export/home/cvs/modperl/apaci/mod_perl.config.sh,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- mod_perl.config.sh 1998/07/23 02:59:35 1.8
+++ mod_perl.config.sh 1998/09/17 16:09:41 1.9
@@ -159,7 +159,7 @@
for hook in \
DISPATCH CHILD_INIT CHILD_EXIT POST_READ_REQUEST TRANS HEADER_PARSER \
ACCESS AUTHEN AUTHZ TYPE FIXUP HANDLER LOG INIT CLEANUP STACKED_HANDLERS \
- METHOD_HANDLERS DIRECTIVE_HANDLERS TIE_TABLES SECTIONS RESTART SSI TRACE THREADS; do
+ METHOD_HANDLERS DIRECTIVE_HANDLERS SECTIONS RESTART SSI TRACE THREADS; do
eval "val=\$param_PERL_${hook}"
case $hook in
TRACE|THREADS )
1.3 +1 -1 modperl/t/internal/tie.t
Index: tie.t
===================================================================
RCS file: /export/home/cvs/modperl/t/internal/tie.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- tie.t 1998/07/23 23:06:54 1.2
+++ tie.t 1998/09/17 16:09:41 1.3
@@ -1,5 +1,5 @@
use Apache::test;
-skip_test unless $net::callback_hooks{PERL_TIE_TABLES};
+skip_test unless $net::callback_hooks{PERL_TABLE_API};
print fetch "$PERL_DIR/tie_table.pl";