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 1999/01/19 23:36:18 UTC
cvs commit: modperl/t/net/perl api.pl
dougm 99/01/19 14:36:15
Modified: . Changes ToDo
src/modules/perl Server.xs
t/net/perl api.pl
Log:
added $r->server->timeout method
Revision Changes Path
1.248 +2 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /export/home/cvs/modperl/Changes,v
retrieving revision 1.247
retrieving revision 1.248
diff -u -r1.247 -r1.248
--- Changes 1999/01/19 21:26:06 1.247
+++ Changes 1999/01/19 22:36:06 1.248
@@ -9,6 +9,8 @@
=item 1.17_01-dev
+added $r->server->timeout method
+
skip tests that use xs/ap_ code if installed MMN is not equal to
target MMN, since Apache releases may break binary compat
1.148 +0 -2 modperl/ToDo
Index: ToDo
===================================================================
RCS file: /export/home/cvs/modperl/ToDo,v
retrieving revision 1.147
retrieving revision 1.148
diff -u -r1.147 -r1.148
--- ToDo 1999/01/19 21:26:07 1.147
+++ ToDo 1999/01/19 22:36:07 1.148
@@ -3,8 +3,6 @@
(well, close to it anyhow)
---------------------------------------------------------------------------
-- Apache::Server->keep_alive_timeout/timeout
-
- loose @ISA 'DynaLoader' to avoid AutoLoader::AUTOLOAD
- @PerlSetVar core dumps outside of %Location (Ask)
1.5 +15 -0 modperl/src/modules/perl/Server.xs
Index: Server.xs
===================================================================
RCS file: /export/home/cvs/modperl/src/modules/perl/Server.xs,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- Server.xs 1998/09/17 23:07:25 1.4
+++ Server.xs 1999/01/19 22:36:12 1.5
@@ -136,6 +136,21 @@
# char *virthost; /* The name given in <VirtualHost> */
int
+timeout(server, set=0)
+ Apache::Server server
+ int set
+
+ CODE:
+ RETVAL = server->timeout;
+
+ if (set) {
+ server->timeout = set;
+ }
+
+ OUTPUT:
+ RETVAL
+
+int
is_virtual(server)
Apache::Server server
1.37 +2 -1 modperl/t/net/perl/api.pl
Index: api.pl
===================================================================
RCS file: /export/home/cvs/modperl/t/net/perl/api.pl,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -r1.36 -r1.37
--- api.pl 1998/12/15 20:18:29 1.36
+++ api.pl 1999/01/19 22:36:14 1.37
@@ -16,7 +16,7 @@
my $is_xs = ($r->uri =~ /_xs/);
-my $tests = 64;
+my $tests = 65;
my $is_win32 = WIN32;
$tests += 2 unless $is_win32;
my $test_get_set = Apache->can('set_handlers') && ($tests += 4);
@@ -165,6 +165,7 @@
test ++$i, $s->server_admin;
test ++$i, $s->server_hostname;
test ++$i, $s->port;
+test ++$i, $s->timeout;
for (my $srv = $r->server; $srv; $srv = $srv->next) {
my $name = $srv->server_hostname;