cvs commit: modperl-2.0/xs/APR/Pool APR__Pool.h

[dougm]

dougm       01/05/07 21:20:17

  Modified:    xs/APR/Pool APR__Pool.h
  Log:
  need to refresh the stack pointer after callback
  
  Revision  Changes    Path
  1.4       +2 -0      modperl-2.0/xs/APR/Pool/APR__Pool.h
  
  Index: APR__Pool.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/APR/Pool/APR__Pool.h,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- APR__Pool.h       2001/04/12 05:38:25     1.3
  +++ APR__Pool.h       2001/05/08 04:20:17     1.4
  @@ -34,6 +34,8 @@
   
       count = call_sv(cdata->cv, G_SCALAR|G_EVAL);
   
  +    SPAGAIN;
  +
       if (count == 1) {
           status = POPi;
       }