comparison: plugins/perl/perl.c
plugins/perl/perl.c
- changeset 6531
- 3fca41d7b411
- parent 6527
- d1236a523428
- child 6536
- b91ae5d45371
equal
deleted
inserted
replaced
| 6530:123bf2500cc1 | 6531:3fca41d7b411 |
|---|---|
| 77 #endif | 77 #endif |
| 78 | 78 |
| 79 #include "internal.h" | 79 #include "internal.h" |
| 80 #include "debug.h" | 80 #include "debug.h" |
| 81 #include "plugin.h" | 81 #include "plugin.h" |
| 82 #include "signals.h" | |
| 82 | 83 |
| 83 #include "perl-common.h" | 84 #include "perl-common.h" |
| 84 #include "perl-handlers.h" | 85 #include "perl-handlers.h" |
| 85 | 86 |
| 86 #define PERL_PLUGIN_ID "core-perl" | 87 #define PERL_PLUGIN_ID "core-perl" |
| 200 { | 201 { |
| 201 /* XXX This would be much faster if I didn't create a new | 202 /* XXX This would be much faster if I didn't create a new |
| 202 * PerlInterpreter every time I probed a plugin */ | 203 * PerlInterpreter every time I probed a plugin */ |
| 203 PerlInterpreter *prober = perl_alloc(); | 204 PerlInterpreter *prober = perl_alloc(); |
| 204 char *argv[] = {"", plugin->path }; | 205 char *argv[] = {"", plugin->path }; |
| 205 int count; | |
| 206 gboolean status = TRUE; | 206 gboolean status = TRUE; |
| 207 HV *plugin_info; | 207 HV *plugin_info; |
| 208 | 208 |
| 209 perl_construct(prober); | 209 perl_construct(prober); |
| 210 perl_parse(prober, xs_init, 2, argv, NULL); | 210 perl_parse(prober, xs_init, 2, argv, NULL); |
