[ekg2-commit] r3798 - in trunk/plugins: perl python: trunk/plugins/perl/perl_core.c trunk/plugins/python/python.c

[SVN commit]

Author: darkjames
Date: 2008-02-19 21:42:44 +0100 (Tue, 19 Feb 2008)
New Revision: 3798

Modified:
   trunk/plugins/perl/perl_core.c
   trunk/plugins/python/python.c
Log:
fixes, i don't know why it stop working.

(ekg2-0.1.x is also affected)


Modified: trunk/plugins/perl/perl_core.c
===================================================================
--- trunk/plugins/perl/perl_core.c	2008-02-19 20:20:35 UTC (rev 3797)
+++ trunk/plugins/perl/perl_core.c	2008-02-19 20:42:44 UTC (rev 3798)
@@ -144,7 +144,7 @@
 				perlarg = new_pv(*(char **) args[i]);
 				break;
 			case (QUERY_ARG_CHARPP): {/* char ** */
-				char *tmp = array_join((char **) args[i], " ");
+				char *tmp = array_join((* (char ***) args[i]), " ");
 				if (xstrlen(tmp)) 
 					perlarg = new_pv(tmp);
 				xfree(tmp);

Modified: trunk/plugins/python/python.c
===================================================================
--- trunk/plugins/python/python.c	2008-02-19 20:20:35 UTC (rev 3797)
+++ trunk/plugins/python/python.c	2008-02-19 20:42:44 UTC (rev 3798)
@@ -231,10 +231,10 @@
                                 break;
                         }
                         case (QUERY_ARG_CHARPP): {
-                                char *tmp = array_join((char **) args[i], " ");
-                                w = PyString_FromString(tmp); /* CHECK: xstrdup ? */
-                                xfree(tmp);
-                                break;
+				char *tmp = array_join((* (char ***) args[i]), " ");
+				w = PyString_FromString(tmp); /* CHECK: xstrdup ? */
+				xfree(tmp);
+				break;
                         }
                         default:
                                debug("[NIMP] %s %d %d\n", __(query_name(scr_que->self->id)), i, scr_que->argv_type[i]);