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/11/23 11:06:48 UTC
cvs commit: embperl/test/html/EmbperlObject/sub epobless3.htm
richter 01/11/23 02:06:47
Modified: . Tag: Embperl2c epmain.c
test/html/EmbperlObject/sub Tag: Embperl2c epobless3.htm
Log:
Embperl 2 - fix cache lookup
Revision Changes Path
No revision
No revision
1.75.4.73 +3 -1 embperl/epmain.c
Index: epmain.c
===================================================================
RCS file: /home/cvs/embperl/epmain.c,v
retrieving revision 1.75.4.72
retrieving revision 1.75.4.73
diff -u -r1.75.4.72 -r1.75.4.73
--- epmain.c 2001/11/23 07:50:59 1.75.4.72
+++ epmain.c 2001/11/23 10:06:47 1.75.4.73
@@ -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.75.4.72 2001/11/23 07:50:59 richter Exp $
+# $Id: epmain.c,v 1.75.4.73 2001/11/23 10:06:47 richter Exp $
#
###################################################################################*/
@@ -1977,6 +1977,7 @@
cache_key_len += strlen( olddir );
cache_key = _malloc( r, cache_key_len + 5 );
+ cache_key_len += 2 ;
strcpy( cache_key, "--" );
strcat( cache_key, sSourcefile );
if ( pConf->sPackage )
@@ -2108,6 +2109,7 @@
cache_key_len += strlen( olddir );
cache_key = malloc(cache_key_len + 5 );
+ cache_key_len += 2 ;
strcpy( cache_key, "--" );
strcat( cache_key, sSourcefile );
if ( sPackage && *sPackage)
No revision
No revision
1.1.2.2 +1 -1 embperl/test/html/EmbperlObject/sub/epobless3.htm
Index: epobless3.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/EmbperlObject/sub/epobless3.htm,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -r1.1.2.1 -r1.1.2.2
--- epobless3.htm 2001/03/27 14:25:01 1.1.2.1
+++ epobless3.htm 2001/11/23 10:06:47 1.1.2.2
@@ -1,7 +1,7 @@
[- $subs = Execute ({'object' => 'eposubs2.htm'}) -]
-
+[- print LOG "subs $subs\n" ; -]
[-
$src1 = "eposub1: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa \[- \$subs -> eposub1 -\] \<br>" ;
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org