[Commits] perl_plugin.c 1.19.2.37 1.19.2.38

[holger at claws-mail.org]

Update of /home/claws-mail/plugins/perl/src
In directory srv:/tmp/cvs-serv17381/src

Modified Files:
      Tag: gtk2
	perl_plugin.c 
Log Message:
2012-08-18 [holger]	0.9.19cvs4

	* src/perl_plugin.c
		Make sure the perl return stack is big
		enough to hold enough values
		Fixes bug #2663 

Index: perl_plugin.c
===================================================================
RCS file: /home/claws-mail/plugins/perl/src/perl_plugin.c,v
retrieving revision 1.19.2.37
retrieving revision 1.19.2.38
diff -u -d -r1.19.2.37 -r1.19.2.38
--- perl_plugin.c	10 Aug 2012 22:56:08 -0000	1.19.2.37
+++ perl_plugin.c	18 Aug 2012 18:41:37 -0000	1.19.2.38
@@ -599,6 +599,7 @@
     (msginfo->extradata && msginfo->extradata->returnreceiptto) ?
       XSRETURN_PV(msginfo->extradata->returnreceiptto)     : XSRETURN_UNDEF;
   case 14:
+    EXTEND(SP, g_slist_length(msginfo->references));
     ii = 0;
     for(walk = msginfo->references; walk != NULL; walk = g_slist_next(walk))
       XST_mPV(ii++,walk->data ? (gchar*) walk->data: "");
@@ -698,6 +699,7 @@
   }
   if(procheader_get_one_field(buf, sizeof(buf), message_file, NULL) != -1) {
     header = procheader_parse_header(buf);
+    EXTEND(SP, 2);
     if(header) {
       XST_mPV(0,header->name);
       XST_mPV(1,header->body);