plugins/perl/perl.c

changeset 5922
808c73b7393e
parent 5912
32619a71edd2
child 6036
285e48913c72
equal deleted inserted replaced
5921:b49d0c63697a 5922:808c73b7393e
1282 char *argv[] = {"", plugin->path }; 1282 char *argv[] = {"", plugin->path };
1283 int count; 1283 int count;
1284 gboolean status = TRUE; 1284 gboolean status = TRUE;
1285 1285
1286 perl_construct(prober); 1286 perl_construct(prober);
1287 perl_parse(prober, NULL, 2, argv, NULL); 1287 perl_parse(prober, xs_init, 2, argv, NULL);
1288 1288
1289 { 1289 {
1290 dSP; 1290 dSP;
1291 ENTER; 1291 ENTER;
1292 SAVETMPS; 1292 SAVETMPS;

mercurial