perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@hyperreal.org
Subject cvs commit: modperl/src/modules/perl perl_util.c
Date Wed, 17 Jun 1998 17:07:18 GMT
dougm       98/06/17 10:07:18

  Modified:    src/modules/perl perl_util.c
  Log:
  better safe than sorry
  
  Revision  Changes    Path
  1.14      +3 -1      modperl/src/modules/perl/perl_util.c
  
  Index: perl_util.c
  ===================================================================
  RCS file: /export/home/cvs/modperl/src/modules/perl/perl_util.c,v
  retrieving revision 1.13
  retrieving revision 1.14
  diff -u -r1.13 -r1.14
  --- perl_util.c	1998/06/16 18:49:59	1.13
  +++ perl_util.c	1998/06/17 17:07:17	1.14
  @@ -287,9 +287,11 @@
   
       MP_TRACE_g(fprintf(stderr, 
   	     "running %d END blocks for %s\n", rgyendav ? (int)AvFILL(rgyendav)+1 : 0, s));
  +    ENTER;
  +    save_aptr(&endav); 
       if((endav = rgyendav)) 
   	perl_run_blocks(scopestack_ix, endav);
  -    
  +    LEAVE;
       sv_setpv(rgystash,"");
   }
   
  
  
  

Mime
View raw message