cvs commit: modperl-2.0/src/modules/perl modperl_handler.c

[stas]

stas        2004/02/09 12:35:26

  Modified:    src/modules/perl modperl_handler.c
  Log:
  copy the deparsed string before it gets consumed on the scope exit
  
  Revision  Changes    Path
  1.22      +2 -2      modperl-2.0/src/modules/perl/modperl_handler.c
  
  Index: modperl_handler.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_handler.c,v
  retrieving revision 1.21
  retrieving revision 1.22
  diff -u -u -r1.21 -r1.22
  --- modperl_handler.c 9 Feb 2004 19:32:42 -0000       1.21
  +++ modperl_handler.c 9 Feb 2004 20:35:26 -0000       1.22
  @@ -48,7 +48,7 @@
       
       {
           STRLEN n_a;
  -        text = POPpx;
  +        text = apr_pstrcat(p, "sub ", POPpx, NULL);
       }
       
       PUTBACK;
  @@ -56,7 +56,7 @@
       FREETMPS;
       LEAVE;
   
  -    return apr_pstrcat(p, "sub ", text, NULL);
  +    return text;
   }
   
   modperl_handler_t *modperl_handler_new(apr_pool_t *p, const char *name)