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 20:39:27 UTC
cvs commit: embperl epmain.c
richter 00/11/11 11:39:26
Modified: . Tag: Embperl2c epmain.c
Log:
Revision Changes Path
No revision
No revision
1.75.4.13 +1 -1 embperl/epmain.c
Index: epmain.c
===================================================================
RCS file: /home/cvs/embperl/epmain.c,v
retrieving revision 1.75.4.12
retrieving revision 1.75.4.13
diff -u -r1.75.4.12 -r1.75.4.13
--- epmain.c 2000/11/10 08:52:26 1.75.4.12
+++ epmain.c 2000/11/11 19:39:26 1.75.4.13
@@ -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 !? */