Merge branch 'keyword-rewrite' into keyword-rewrite-magic
Lukas Mai [Tue, 19 Jun 2012 03:09:51 +0000 (05:09 +0200)]
1  2 
Parameters.xs
lib/Function/Parameters.pm

diff --cc Parameters.xs
@@@ -327,26 -329,6 +329,27 @@@ static int my_keyword_plugin(pTHX_ cha
        return ret;
  }
  
 +static int magic_free(pTHX_ SV *sv, MAGIC *mg) {
 +      lex_stuff_pvn("}", 1, 0);
++      /* fprintf(stderr, "!~ [%.*s]\n", (int)(PL_bufend - PL_bufptr), PL_bufptr); */
 +      return 0;
 +}
 +
 +static int magic_nop(pTHX_ SV *sv, MAGIC *mg) {
 +      return 0;
 +}
 +
 +static MGVTBL my_vtbl = {
 +      0,           /* get   */
 +      0,           /* set   */
 +      0,           /* len   */
 +      0,           /* clear */
 +      magic_free,  /* free  */
 +      0,           /* copy  */
 +      0,           /* dup   */
 +      magic_nop    /* local */
 +};
 +
  WARNINGS_RESET
  
  MODULE = Function::Parameters   PACKAGE = Function::Parameters
Simple merge