richter 00/11/15 03:55:30
Modified: . Tag: Embperl2c Embperl.pm epcomp.c
Log:
Embperl 2 - replace snprintf
Revision Changes Path
No revision
No revision
1.118.4.14 +2 -2 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.118.4.13
retrieving revision 1.118.4.14
diff -u -r1.118.4.13 -r1.118.4.14
--- Embperl.pm 2000/11/15 08:33:02 1.118.4.13
+++ Embperl.pm 2000/11/15 11:55:25 1.118.4.14
@@ -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.13 2000/11/15 08:33:02 richter Exp $
+# $Id: Embperl.pm,v 1.118.4.14 2000/11/15 11:55:25 richter Exp $
#
###################################################################################
@@ -86,7 +86,7 @@
##ep2##
-$VERSION = '2.0a15' ;
+$VERSION = '2.0a16' ;
##/ep2##
##ep1##$VERSION = '1.3b7_dev';
1.4.2.17 +7 -9 embperl/Attic/epcomp.c
Index: epcomp.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epcomp.c,v
retrieving revision 1.4.2.16
retrieving revision 1.4.2.17
diff -u -r1.4.2.16 -r1.4.2.17
--- epcomp.c 2000/11/15 08:33:02 1.4.2.16
+++ epcomp.c 2000/11/15 11:55:29 1.4.2.17
@@ -1729,12 +1729,13 @@
{
int rc ;
- char sKey[512] ;
- int nKey ;
+ char * sKey ;
+ STRLEN nKey ;
char * pCVKey = "";
char * pPathInfoKey ;
char * pQueryInfoKey ;
SV * * ppSV ;
+ SV * pSVKey ;
STRLEN l ;
int bOpt = cType == 'P'?0:pProcessor -> bCacheKeyOptions ;
@@ -1775,16 +1776,13 @@
else
pQueryInfoKey = "" ;
- nKey =
-#ifdef WIN32
- _snprintf
-#else
- snprintf
-#endif
- (sKey, sizeof (sKey) - 1, "%c-%d-%s-%s-%s-%s", cType, pProcessor ->
nProcessorNo, pProcessor -> sCacheKey, pCVKey, pPathInfoKey, pQueryInfoKey) ;
+
+ pSVKey = newSVpvf("%c-%d-%s-%s-%s-%s", cType, pProcessor -> nProcessorNo,
pProcessor -> sCacheKey, pCVKey, pPathInfoKey, pQueryInfoKey) ;
+ sKey = SvPV (pSVKey, nKey);
if (r -> bDebug & dbgCache)
lprintf (r, "[%d]CACHE: File: '%s' Processor: '%s' Step: '%s' gives Key:
'%s'\n", r -> nPid, r -> Buf.pFile -> sSourcefile, pProcessor -> sName, sStepName,
sKey) ;
*pppSV = ppSV = hv_fetch(r -> Buf.pFile -> pCacheHash, sKey, nKey, 1) ;
+ SvREFCNT_dec(pSVKey);
if (ppSV == NULL || *ppSV == NULL)
return rcHashError ;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
