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...@apache.org on 2001/06/03 20:15:46 UTC
cvs commit: embperl Changes.pod Embperl.pm epmain.c epocgi.test.pl.templ test.pl
richter 01/06/03 11:15:45
Modified: . Changes.pod Embperl.pm epmain.c
epocgi.test.pl.templ test.pl
Log:
- fixed problem when environment variables are not correctly
reseted by mod_perl, with caused sometimes problems with
configuration, mainly (but not only) with ActiveState Perl.
- fixed problem with wrong setup of Content-Length header
when running in CGI mode, with escmode = 0. Spotted by
Edwin Ramirez.
Revision Changes Path
1.170 +6 -0 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.169
retrieving revision 1.170
diff -u -r1.169 -r1.170
--- Changes.pod 2001/05/31 18:42:24 1.169
+++ Changes.pod 2001/06/03 18:15:44 1.170
@@ -17,6 +17,12 @@
make test to fail.
- fixed SIGSEGVs that could occur on rare situations when
multiple file not found errors are reported.
+ - fixed problem when environment variables are not correctly
+ reseted by mod_perl, with caused sometimes problems with
+ configuration, mainly (but not only) with ActiveState Perl.
+ - fixed problem with wrong setup of Content-Length header
+ when running in CGI mode, with escmode = 0. Spotted by
+ Edwin Ramirez.
=head1 1.3.2 (RELEASE) 16 May. 2001
1.157 +2 -2 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.156
retrieving revision 1.157
diff -u -r1.156 -r1.157
--- Embperl.pm 2001/05/30 07:23:01 1.156
+++ Embperl.pm 2001/06/03 18:15:45 1.157
@@ -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.156 2001/05/30 07:23:01 richter Exp $
+# $Id: Embperl.pm,v 1.157 2001/06/03 18:15:45 richter Exp $
#
###################################################################################
@@ -658,7 +658,7 @@
my %cgienv = $req_rec->cgi_env ;
while (($k, $v) = each %cgienv)
{
- $ENV{$k} ||= $v ;
+ $ENV{$k} = $v ;
}
}
1.104 +5 -3 embperl/epmain.c
Index: epmain.c
===================================================================
RCS file: /home/cvs/embperl/epmain.c,v
retrieving revision 1.103
retrieving revision 1.104
diff -u -r1.103 -r1.104
--- epmain.c 2001/05/31 18:42:26 1.103
+++ epmain.c 2001/06/03 18:15:45 1.104
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epmain.c,v 1.103 2001/05/31 18:42:26 richter Exp $
+# $Id: epmain.c,v 1.104 2001/06/03 18:15:45 richter Exp $
#
###################################################################################*/
@@ -2188,8 +2188,10 @@
ppSV = hv_fetch(r -> pEnvHash, "PATH_INFO", sizeof ("PATH_INFO") - 1, 0) ;
if (ppSV)
r -> sPathInfo = SvPV (*ppSV ,len) ;
-#endif
r -> pTokenTable = pTokenTable ;
+#else
+ r -> pTokenTable = (void *)pTokenTable ;
+#endif
if (rc != ok)
r -> bDebug = 0 ; /* Turn debbuging off, only errors will go to stderr if logfile not open */
r -> bOptions = pConf -> bOptions ;
@@ -2858,7 +2860,7 @@
oputs (r, "Content-Type: ") ;
oputs (r, pContentType) ;
oputs (r, "\n") ;
- sprintf (txt, "Content-Length: %d\n", GetContentLength (r) + 2) ;
+ sprintf (txt, "Content-Length: %d\n", GetContentLength (r) + (r -> pCurrEscape?2:0)) ;
oputs (r, txt) ;
if (pCookie)
{
1.3 +2 -1 embperl/epocgi.test.pl.templ
Index: epocgi.test.pl.templ
===================================================================
RCS file: /home/cvs/embperl/epocgi.test.pl.templ,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- epocgi.test.pl.templ 2001/05/15 10:41:25 1.2
+++ epocgi.test.pl.templ 2001/06/03 18:15:45 1.3
@@ -11,7 +11,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epocgi.test.pl.templ,v 1.2 2001/05/15 10:41:25 richter Exp $
+# $Id: epocgi.test.pl.templ,v 1.3 2001/06/03 18:15:45 richter Exp $
#
###################################################################################
@@ -32,6 +32,7 @@
my $ioType ;
my %req ;
+
HTML::EmbperlObject::ScanEnvironment (\%req) ;
$req{'inputfile'} = $ENV{PATH_TRANSLATED} ;
1.109 +2 -1 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.108
retrieving revision 1.109
diff -u -r1.108 -r1.109
--- test.pl 2001/05/22 11:19:52 1.108
+++ test.pl 2001/06/03 18:15:45 1.109
@@ -11,7 +11,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: test.pl,v 1.108 2001/05/22 11:19:52 richter Exp $
+# $Id: test.pl,v 1.109 2001/06/03 18:15:45 richter Exp $
#
###################################################################################
@@ -528,6 +528,7 @@
},
'EmbperlObject/sub/eponotfound.htm' => {
'offline' => 0,
+ 'cgi' => 0,
},
'EmbperlObject/sub/epobless.htm' => {
'offline' => 0,
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org