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:34:14 UTC
cvs commit: modperl/t/docs startup.pl
dougm 98/09/17 09:34:14
Modified: . Changes ToDo
src/modules/perl mod_perl.h
t/docs startup.pl
Log:
global renames: $Apache::Server{Re}Starting -> $Apache::Server::{Re}Starting
Revision Changes Path
1.139 +1 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /export/home/cvs/modperl/Changes,v
retrieving revision 1.138
retrieving revision 1.139
diff -u -r1.138 -r1.139
--- Changes 1998/09/17 16:09:38 1.138
+++ Changes 1998/09/17 16:34:11 1.139
@@ -8,6 +8,7 @@
=item 1.15_01-dev
+global renames: $Apache::Server{Re}Starting -> $Apache::Server::{Re}Starting
s/PERL_TIE_TABLES/PERL_TABLE_API/g
1.83 +0 -2 modperl/ToDo
Index: ToDo
===================================================================
RCS file: /export/home/cvs/modperl/ToDo,v
retrieving revision 1.82
retrieving revision 1.83
diff -u -r1.82 -r1.83
--- ToDo 1998/09/17 16:09:39 1.82
+++ ToDo 1998/09/17 16:34:11 1.83
@@ -9,8 +9,6 @@
- $ENV{PATH}
-- $Apache::Server{Re}Starting -> $Apache::Server::{Re}Starting
-
- Apache::SubRequest->bytes_sent
- deal with mod_ssl.c/Stronghold test configuration
1.48 +6 -2 modperl/src/modules/perl/mod_perl.h
Index: mod_perl.h
===================================================================
RCS file: /export/home/cvs/modperl/src/modules/perl/mod_perl.h,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -r1.47 -r1.48
--- mod_perl.h 1998/09/16 00:05:15 1.47
+++ mod_perl.h 1998/09/17 16:34:12 1.48
@@ -200,14 +200,18 @@
#define Apache__ServerStarting(val) \
{ \
- GV *sgv = GvSV_init("Apache::ServerStarting"); \
+ GV *sgv = GvSV_init("Apache::Server::Starting"); \
+ GV *agv = GvSV_init("Apache::ServerStarting"); \
GvSV_setiv(sgv, val); \
+ GvSV(agv) = GvSV(sgv); \
}
#define Apache__ServerReStarting(val) \
{ \
- GV *sgv = GvSV_init("Apache::ServerReStarting"); \
+ GV *sgv = GvSV_init("Apache::Server::ReStarting"); \
+ GV *agv = GvSV_init("Apache::ServerReStarting"); \
GvSV_setiv(sgv, val); \
+ GvSV(agv) = GvSV(sgv); \
if(perl_is_running == PERL_DONE_STARTUP) \
Apache__ServerStarting((val == FALSE ? FALSE : PERL_RUNNING())); \
}
1.19 +5 -1 modperl/t/docs/startup.pl
Index: startup.pl
===================================================================
RCS file: /export/home/cvs/modperl/t/docs/startup.pl,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -r1.18 -r1.19
--- startup.pl 1998/08/28 22:33:33 1.18
+++ startup.pl 1998/09/17 16:34:14 1.19
@@ -4,7 +4,11 @@
use lib './t/docs';
require "blib.pl" if -e "./t/docs/blib.pl";
- $Apache::ServerStarting or warn "Server is not starting !?\n";
+ $Apache::Server::Starting or warn "Server is not starting !?\n";
+ \$Apache::Server::Starting == \$Apache::ServerStarting or
+ warn "GV alias broken\n";
+ \$Apache::Server::ReStarting == \$Apache::ServerReStarting or
+ warn "GV alias broken\n";
}
use Apache ();