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/06/07 05:27:14 UTC
cvs commit: embperl/test/cmp escape.htm-1
richter 00/06/06 20:27:13
Modified: . Tag: Embperl2 epmain.c test.pl
Added: test/cmp Tag: Embperl2 escape.htm-1
Log:
Revision Changes Path
No revision
No revision
1.65.2.11 +4 -1 embperl/epmain.c
Index: epmain.c
===================================================================
RCS file: /home/cvs/embperl/epmain.c,v
retrieving revision 1.65.2.10
retrieving revision 1.65.2.11
diff -u -r1.65.2.10 -r1.65.2.11
--- epmain.c 2000/06/06 19:48:51 1.65.2.10
+++ epmain.c 2000/06/07 03:27:11 1.65.2.11
@@ -1702,10 +1702,13 @@
if ( pConf->sPackage )
cache_key_len += strlen( pConf->sPackage );
- cache_key = _malloc( r, cache_key_len + 1 );
+ cache_key = _malloc( r, cache_key_len + 3 );
strcpy( cache_key, sSourcefile );
if ( pConf->sPackage )
strcat( cache_key, pConf->sPackage );
+ if ( pConf->bEP1Compat )
+ strcat( cache_key, "-1" ); /* make sure Embperl 1.x compatible files get another namespace */
+
ppSV = hv_fetch(pCacheHash, cache_key, cache_key_len, 0);
if (ppSV && *ppSV)
1.57.2.19 +1 -1 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.57.2.18
retrieving revision 1.57.2.19
diff -u -r1.57.2.18 -r1.57.2.19
--- test.pl 2000/06/06 19:48:54 1.57.2.18
+++ test.pl 2000/06/07 03:27:11 1.57.2.19
@@ -26,7 +26,7 @@
## 'errdoc/errdoc.htm???8?262144',
## 'rawinput/rawinput.htm????16',
'var.htm',
- 'varerr.htm???-1',
+## 'varerr.htm???-1',
## 'varerr.htm???2',
'escape.htm',
## 'spaces.htm',
No revision
No revision
1.1.2.1 +198 -0 embperl/test/cmp/Attic/escape.htm-1