richter 01/03/27 06:21:53
Modified: . Tag: Embperl2c Embperl.pm epdom.c test.pl
test/conf Tag: Embperl2c httpd.conf.src
Log:
Embperl 2 - cleanup
Revision Changes Path
No revision
No revision
1.118.4.27 +3 -1 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.118.4.26
retrieving revision 1.118.4.27
diff -u -r1.118.4.26 -r1.118.4.27
--- Embperl.pm 2001/03/27 11:51:56 1.118.4.26
+++ Embperl.pm 2001/03/27 14:21:52 1.118.4.27
@@ -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.118.4.26 2001/03/27 11:51:56 richter Exp $
+# $Id: Embperl.pm,v 1.118.4.27 2001/03/27 14:21:52 richter Exp $
#
###################################################################################
@@ -827,6 +827,7 @@
}
$$req{'path'} ||= $lastreq -> Path ;
$$req{'debug'} ||= $lastreq -> Debug ;
+ $pathndx = $lastreq -> PathNdx ;
}
if (defined ($In))
@@ -875,6 +876,7 @@
$r -> Path ($req->{path}) if ($req->{path}) ;
+
$r -> PathNdx ($pathndx) ;
$package = $r -> CurrPackage ;
1.4.2.26 +16 -0 embperl/Attic/epdom.c
Index: epdom.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epdom.c,v
retrieving revision 1.4.2.25
retrieving revision 1.4.2.26
diff -u -r1.4.2.25 -r1.4.2.26
--- epdom.c 2001/03/27 12:43:14 1.4.2.25
+++ epdom.c 2001/03/27 14:21:52 1.4.2.26
@@ -1687,7 +1687,15 @@
}
if (pOldChild -> nType == ntypDocument)
+ {
pOldChild -> nType = ntypDocumentFraq ;
+ if (pOldChild -> nText != xDocumentFraq)
+ {
+ NdxStringFree (pOldChild -> nText) ;
+ pOldChild -> nText = xDocumentFraq ;
+ NdxStringRefcntInc (xDocumentFraq) ;
+ }
+ }
if (pOldChild -> nType == ntypDocumentFraq)
{
@@ -1763,7 +1771,15 @@
DomTree_selfCheckpoint (pRefNodeDomTree, xOrgNode, pNewNode -> xNdx) ;
if (pNewNode -> nType == ntypDocument)
+ {
pNewNode -> nType = ntypDocumentFraq ;
+ if (pNewNode -> nText != xDocumentFraq)
+ {
+ NdxStringFree (pNewNode -> nText) ;
+ pNewNode -> nText = xDocumentFraq ;
+ NdxStringRefcntInc (xDocumentFraq) ;
+ }
+ }
if (pNewNode -> nType == ntypDocumentFraq)
{
1.70.4.39 +1 -0 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.70.4.38
retrieving revision 1.70.4.39
diff -u -r1.70.4.38 -r1.70.4.39
--- test.pl 2001/03/27 11:52:13 1.70.4.38
+++ test.pl 2001/03/27 14:21:52 1.70.4.39
@@ -498,6 +498,7 @@
},
'inctext.htm' => {
'ep1compat' => 0,
+ 'version' => 2,
},
'incperl.htm' => {
'version' => 2,
No revision
No revision
1.24.4.13 +1 -1 embperl/test/conf/httpd.conf.src
Index: httpd.conf.src
===================================================================
RCS file: /home/cvs/embperl/test/conf/httpd.conf.src,v
retrieving revision 1.24.4.12
retrieving revision 1.24.4.13
diff -u -r1.24.4.12 -r1.24.4.13
--- httpd.conf.src 2001/03/27 12:28:27 1.24.4.12
+++ httpd.conf.src 2001/03/27 14:21:53 1.24.4.13
@@ -239,7 +239,7 @@
AddType text/html .ehtml
-#<FilesMatch \".*\.ehtml$\">
+#<FilesMatch \".*\.ehtml\$\">
#SetHandler perl-script
#PerlHandler HTML::Embperl
#Options ExecCGI
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
