You are viewing a plain text version of this content. The canonical link for it is here.
Posted to embperl-cvs@perl.apache.org by ri...@locus.apache.org on 2000/11/11 14:28:30 UTC
cvs commit: embperl Changes.pod Embperl.pm epmain.c
richter 00/11/11 05:28:30
Modified: . Changes.pod Embperl.pm epmain.c
Log:
- Fixed a bug that Content-Lenght was 2 to much, when escmode was set to zero.
Spotted by Michael Smith.
Revision Changes Path
1.140 +2 -0 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.139
retrieving revision 1.140
diff -u -r1.139 -r1.140
--- Changes.pod 2000/11/09 20:25:21 1.139
+++ Changes.pod 2000/11/11 13:28:29 1.140
@@ -31,6 +31,8 @@
neccessary, but not more often. (Handles now write to session data, after
a delete in the same request correctly).
- Added more tests for Sessionhandling.
+ - Fixed a bug that Content-Lenght was 2 to much, when escmode was set to zero.
+ Spotted by Michael Smith.
=head1 1.3b6 (BETA) 18. Oct 2000
1.130 +2 -2 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.129
retrieving revision 1.130
diff -u -r1.129 -r1.130
--- Embperl.pm 2000/11/10 08:23:16 1.129
+++ Embperl.pm 2000/11/11 13:28:29 1.130
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Embperl.pm,v 1.129 2000/11/10 08:23:16 richter Exp $
+# $Id: Embperl.pm,v 1.130 2000/11/11 13:28:29 richter Exp $
#
###################################################################################
@@ -337,7 +337,7 @@
eval 'sub OK { 0 ; }' ;
eval 'sub NOT_FOUND { 404 ; }' ;
eval 'sub FORBIDDEN { 403 ; }' ;
- eval 'sub DECLINED { 403 ; }' ; # in non mod_perl environement, same as FORBIDDEN
+ eval 'sub DECLINED { 403 ; }' ; # in non mod_perl environment, same as FORBIDDEN
no strict ;
XS_Init (epIOPerl, $DefaultLog, $DebugDefault) ;
use strict ;
1.88 +1 -1 embperl/epmain.c
Index: epmain.c
===================================================================
RCS file: /home/cvs/embperl/epmain.c,v
retrieving revision 1.87
retrieving revision 1.88
diff -u -r1.87 -r1.88
--- epmain.c 2000/11/10 08:36:37 1.87
+++ epmain.c 2000/11/11 13:28:29 1.88
@@ -2644,7 +2644,7 @@
table_add(r -> pApacheReq->headers_out, sSetCookie, pstrdup(r -> pApacheReq->pool, SvPV(pCookie, ldummy))) ;
SvREFCNT_dec (pCookie) ;
}
- set_content_length (r -> pApacheReq, GetContentLength (r) + 2) ;
+ set_content_length (r -> pApacheReq, GetContentLength (r) + (r -> pCurrEscape?2:0)) ;
send_http_header (r -> pApacheReq) ;
#ifndef WIN32
/* shouldn't be neccessary for newer mod_perl versions !? */