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/06/02 05:37:22 UTC
cvs commit: modperl/src/modules/perl Apache.xs
dougm 98/06/01 20:37:22
Modified: . Changes ToDo
Apache Apache.pm
src/modules/perl Apache.xs
Log:
avoid some possible warnings in Apache.pm [Brian Mosley <ix...@maz.org>]
added $r->request_time method
Revision Changes Path
1.37 +4 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /export/home/cvs/modperl/Changes,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -r1.36 -r1.37
--- Changes 1998/05/29 22:07:40 1.36
+++ Changes 1998/06/02 03:37:18 1.37
@@ -22,6 +22,10 @@
=item 1.11_01-dev
+avoid some possible warnings in Apache.pm [Brian Mosley <ix...@maz.org>]
+
+added $r->request_time method
+
fix bug when PERL_MARK_WHERE was undefined spotted by Kermit Tensmeyer
emulate pre-1.3b6 r->uri/r->proxyreq behavior for proxy requests
1.26 +2 -0 modperl/ToDo
Index: ToDo
===================================================================
RCS file: /export/home/cvs/modperl/ToDo,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -r1.25 -r1.26
--- ToDo 1998/05/29 22:07:41 1.25
+++ ToDo 1998/06/02 03:37:19 1.26
@@ -16,6 +16,8 @@
(well, close to it anyhow)
---------------------------------------------------------------------------
+- have Makefile.PL check for HTML::HeadParser
+
- Gerald's report of Embperl/sub-request/print breakage
- make sure SERVER_VERSION/SERVER_SUBVERSION, etc. is in sync w/ 1.3b7 changes
1.10 +2 -2 modperl/Apache/Apache.pm
Index: Apache.pm
===================================================================
RCS file: /export/home/cvs/modperl/Apache/Apache.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- Apache.pm 1998/05/17 23:31:52 1.9
+++ Apache.pm 1998/06/02 03:37:20 1.10
@@ -48,7 +48,7 @@
sub content {
my($r) = @_;
- my $ct = $r->header_in("Content-type");
+ my $ct = $r->header_in("Content-type") || "";
return unless $ct eq "application/x-www-form-urlencoded";
my $buff;
$r->read($buff, $r->header_in("Content-length"));
@@ -218,7 +218,7 @@
push @retval, "$k: $v";
}
}
- join "\n", @retval, "";
+ join "\n", grep { defined $_ } @retval, "";
}
sub TIEHANDLE {
1.25 +10 -0 modperl/src/modules/perl/Apache.xs
Index: Apache.xs
===================================================================
RCS file: /export/home/cvs/modperl/src/modules/perl/Apache.xs,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -r1.24 -r1.25
--- Apache.xs 1998/05/14 03:06:56 1.24
+++ Apache.xs 1998/06/02 03:37:21 1.25
@@ -1335,6 +1335,16 @@
OUTPUT:
RETVAL
+time_t
+request_time(r)
+ Apache r
+
+ CODE:
+ RETVAL = r->request_time;
+
+ OUTPUT:
+ RETVAL
+
char *
status_line(r, ...)
Apache r