From: Lukas Mai <l.mai@web.de>
Date: Tue, 19 Jun 2012 03:09:51 +0000 (+0200)
Subject: Merge branch 'keyword-rewrite' into keyword-rewrite-magic
X-Git-Tag: v0.06~4^2~1^2~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=832f857d8ec42df73abe42d785461c02d4f3b471;p=p5sagit%2FFunction-Parameters.git

Merge branch 'keyword-rewrite' into keyword-rewrite-magic
---

832f857d8ec42df73abe42d785461c02d4f3b471
diff --cc Parameters.xs
index 3e4faf1,b43a9d4..f618a60
--- a/Parameters.xs
+++ b/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