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 2005/08/07 01:40:01 UTC

cvs commit: embperl/test/html lists.htm

richter     2005/08/06 16:40:01

  Modified:    .        Changes.pod epcache.c
               test/cmp lists.htm
               test/html lists.htm
  Log:
     - Fixed a potential segfault in cache handling. Patch from Yatin Chawathe.
  
  Revision  Changes    Path
  1.279     +1 -0      embperl/Changes.pod
  
  Index: Changes.pod
  ===================================================================
  RCS file: /home/cvs/embperl/Changes.pod,v
  retrieving revision 1.278
  retrieving revision 1.279
  diff -u -r1.278 -r1.279
  --- Changes.pod	6 Aug 2005 23:15:25 -0000	1.278
  +++ Changes.pod	6 Aug 2005 23:40:00 -0000	1.279
  @@ -13,6 +13,7 @@
        for example to set an attribute, is now executed correctly.
      - Fixed incorrect quoting of single quotes inside of <textarea> values,
        reported by Axel Beckert.
  +   - Fixed a potential segfault in cache handling. Patch from Yatin Chawathe.
      - Documentation cleanup
      - Added test for optKeepSpaces
   
  
  
  
  1.8       +6 -2      embperl/epcache.c
  
  Index: epcache.c
  ===================================================================
  RCS file: /home/cvs/embperl/epcache.c,v
  retrieving revision 1.7
  retrieving revision 1.8
  diff -u -r1.7 -r1.8
  --- epcache.c	16 Aug 2004 07:36:14 -0000	1.7
  +++ epcache.c	6 Aug 2005 23:40:00 -0000	1.8
  @@ -823,7 +823,11 @@
       pItem -> bExpired       = FALSE ;
   
       if (!pItem -> bCache)
  -        pCachesToRelease[ArrayAdd(r -> pApp, &pCachesToRelease, 1)] = pItem ;
  +        {
  +        int n = ArrayAdd(r -> pApp, &pCachesToRelease, 1) ;
  +        pCachesToRelease[n] = pItem ;
  +        }
  +
       return ok ;
       }
   
  
  
  
  1.5       +12 -4     embperl/test/cmp/lists.htm
  
  Index: lists.htm
  ===================================================================
  RCS file: /home/cvs/embperl/test/cmp/lists.htm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- lists.htm	15 Nov 2002 06:17:46 -0000	1.4
  +++ lists.htm	6 Aug 2005 23:40:00 -0000	1.5
  @@ -49,7 +49,7 @@
       nth element of the dropdownlist is initialy selected
       
   
  -    <p><select name="D1" size="1">
  +    <p><select name="D1"  size="1">
           <option value="A" >1</option>
       
           <option value="B" SELECTED>2</option>
  @@ -70,7 +70,7 @@
   
       If you request this document with list.htm?sel1=x you can specify that the
       element of the dropdownlist is initialy selected
  -
  +    
   
       <p><select name="SEL1">
           <option value="A">1</option>
  @@ -209,7 +209,15 @@
   
       <li>6 = F</li>
   </dir>
  -</body>
  -</html>
   
   
  +    <ul class="articles_by_author">
  +      <li><a href="kb.epl?-dn=one">ONE</a></li>
  +    
  +      <li><a href="kb.epl?-dn=two">TWO</a></li>
  +    </ul>
  +
  +
  +
  +</body>
  +</html>
  
  
  
  1.2       +10 -0     embperl/test/html/lists.htm
  
  Index: lists.htm
  ===================================================================
  RCS file: /home/cvs/embperl/test/html/lists.htm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- lists.htm	14 Jul 1998 20:11:21 -0000	1.1
  +++ lists.htm	6 Aug 2005 23:40:01 -0000	1.2
  @@ -96,5 +96,15 @@
   <dir>
       <li>[+ $k[$row] +] = [+ $v[$row] +]</li>
   </dir>
  +
  +
  +    [- $articles = [ 'one', 'two' ] -]
  +    <ul class="articles_by_author">
  +      [- $dn = $articles->[$row]; -]
  +      <li><a href="kb.epl?-dn=[+ $dn +]">[+ uc($dn) +]</a></li>
  +    </ul>
  +
  +
  +
   </body>
   </html>
  
  
  

---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org