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 2002/11/15 07:55:50 UTC
cvs commit: embperl Changes.pod epcache.c
richter 2002/11/14 22:55:50
Modified: . Tag: Embperl2c Changes.pod epcache.c
Log:
- check fro initialized pointer
Revision Changes Path
No revision
No revision
1.129.4.101 +2 -2 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.129.4.100
retrieving revision 1.129.4.101
diff -u -r1.129.4.100 -r1.129.4.101
--- Changes.pod 11 Nov 2002 06:47:16 -0000 1.129.4.100
+++ Changes.pod 15 Nov 2002 06:55:48 -0000 1.129.4.101
@@ -37,10 +37,10 @@
- Added [$last$], [$next$], [$redo$] and documented [* next *] etc.
- Readdeded missing MailFormTo and added test for it.
- Fixed escaping inside of html attributes of Embperl generated tags like input
- and [$ hidden $].
+ and [$ hidden $]. Reported by Axel Beckert.
- checked and selected attributes are now correctly set when values contains
entities (e.g. <)
-
+ - Fixed segfault when cleanup is called to early. Reported by Neil Gunton.
=head1 2.0b8 (BETA) 25. Juni 2002
1.1.2.26 +10 -7 embperl/epcache.c
Index: epcache.c
===================================================================
RCS file: /home/cvs/embperl/epcache.c,v
retrieving revision 1.1.2.25
retrieving revision 1.1.2.26
diff -u -r1.1.2.25 -r1.1.2.26
--- epcache.c 20 May 2002 07:04:24 -0000 1.1.2.25
+++ epcache.c 15 Nov 2002 06:55:49 -0000 1.1.2.26
@@ -122,15 +122,18 @@
int Cache_CleanupRequest (req * r)
{
- int n = ArrayGetSize (r -> pApp, pCachesToRelease) ;
- int i ;
+ if (pCachesToRelease)
+ {
+ int n = ArrayGetSize (r -> pApp, pCachesToRelease) ;
+ int i ;
- /* lprintf (r -> pApp, "XXXXX Cache_CleanupRequest [%d/%d] pProviders=%x pCacheItems=%x pCachesToRelease=%x", _getpid(), GetCurrentThreadId(), pProviders, pCacheItems, pCachesToRelease) ; */
+ /* lprintf (r -> pApp, "XXXXX Cache_CleanupRequest [%d/%d] pProviders=%x pCacheItems=%x pCachesToRelease=%x", _getpid(), GetCurrentThreadId(), pProviders, pCacheItems, pCachesToRelease) ; */
- for (i = 0; i < n; i++)
- Cache_FreeContent (r, pCachesToRelease[i]) ;
+ for (i = 0; i < n; i++)
+ Cache_FreeContent (r, pCachesToRelease[i]) ;
- ArraySetSize(r -> pApp, &pCachesToRelease, 0) ;
+ ArraySetSize(r -> pApp, &pCachesToRelease, 0) ;
+ }
return ok ;
}
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org