gplugin/gplugin

Parents 41cde363464a
Children 8e01455d9051
still trying to get this thing working. Looks like i will have to tinker with the stack :-/
--- a/perl/gplugin-perl-loader.c Mon Mar 02 01:02:47 2015 -0600
+++ b/perl/gplugin-perl-loader.c Mon Mar 02 01:03:06 2015 -0600
@@ -90,6 +90,7 @@
return NULL;
}
+/*
ret = perl_run(interp);
if(ret != 0) {
if(error) {
@@ -107,11 +108,12 @@
return NULL;
}
+*/
gchar *query_args[] = {NULL,};
g_message("Before call_argv");
- ret = call_pv("gplugin_query", G_EVAL);
+ ret = call_argv("gplugin_query", G_EVAL, query_args);
g_message("call ret: %d", ret);
g_message("After call_argv");