gplugin/gplugin

some minor basic tweaks
feature/perl-loader
2015-03-01, Gary Kramlich
97371b1d6225
Parents cf9a1d75fdac
Children cf4dae2ec16f
some minor basic tweaks
1 files changed, 1 insertions(+), 2 deletions(-)
  • +1 -2
    perl/gplugin-perl-loader.c
    • --- a/perl/gplugin-perl-loader.c Sun Mar 01 22:03:05 2015 -0600
    +++ b/perl/gplugin-perl-loader.c Sun Mar 01 22:44:34 2015 -0600
    @@ -67,11 +67,10 @@
    g_message("filename: %s", filename);
    - PERL_SYS_INIT(&argc, &argv);
    interp = perl_alloc();
    PERL_SET_CONTEXT(interp);
    - PL_perl_destruct_level = 1;
    perl_construct(interp);
    + PL_perl_destruct_level = 1; /* perl_construct resets this to 0 */
    ret = perl_parse(interp, gplugin_perl_loader_xsinit, argc, argv, NULL);
    if(ret != 0) {