view release on metacpan or  search on metacpan

lib/Chandra/Pack.pm  view on Meta::CPAN

    snprintf(resources, sizeof(resources), "%s/../Resources", d);
    snprintf(lib, sizeof(lib), "%s/lib", resources);
    snprintf(script, sizeof(script), "%s/script.pl", resources);

    /* Set PERL5LIB */
    const char *existing = getenv("PERL5LIB");
    if (existing && *existing)
        snprintf(perl5lib, sizeof(perl5lib), "%s:%s", lib, existing);
    else
        snprintf(perl5lib, sizeof(perl5lib), "%s", lib);
    setenv("PERL5LIB", perl5lib, 1);

CSRC
    $c_src .= "    execl(\"$full_perl\", \"$full_perl\", script, (char *)NULL);\n";
    $c_src .= <<'CSRC';
    perror("exec");
    return 1;
}
CSRC

    require File::Temp;