dougm 00/06/05 11:18:54
Modified: . Changes
src/modules/perl Apache.xs
Log:
fix $r->bytes_sent($bytes)
Revision Changes Path
1.498 +2 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl/Changes,v
retrieving revision 1.497
retrieving revision 1.498
diff -u -r1.497 -r1.498
--- Changes 2000/06/05 18:16:23 1.497
+++ Changes 2000/06/05 18:18:48 1.498
@@ -10,6 +10,8 @@
=item 1.24_01-dev
+fix $r->bytes_sent($bytes)
+
support version parsing of 1.3.13-dev's httpd.h
fix for 'sub handler : method {}' support when method is not found
1.98 +4 -2 modperl/src/modules/perl/Apache.xs
Index: Apache.xs
===================================================================
RCS file: /home/cvs/modperl/src/modules/perl/Apache.xs,v
retrieving revision 1.97
retrieving revision 1.98
diff -u -r1.97 -r1.98
--- Apache.xs 2000/05/23 18:15:46 1.97
+++ Apache.xs 2000/06/05 18:18:49 1.98
@@ -1507,8 +1507,10 @@
RETVAL = last->bytes_sent;
- if(items > 1)
- r->bytes_sent = (long)SvIV(ST(1));
+ if(items > 1) {
+ long nbytes = last->bytes_sent = (long)SvIV(ST(1));
+ ap_bsetopt(last->connection->client, BO_BYTECT, &nbytes);
+ }
OUTPUT:
RETVAL
