view release on metacpan or  search on metacpan

Popt.xs  view on Meta::CPAN

        poptFreeContext(perl_popt->popt);

        if (perl_popt->name) {
            Safefree(perl_popt->name);
        }

        _free_popt_options(aTHX_ perl_popt->options);

void
parse (SV* self_sv, ...)
    PPCODE:
        perl_popt_st* perl_popt = exs_structref_ptr(self_sv);

        // trailing NUL - self_sv = 0
        const char* stack_argv[items];
        stack_argv[items - 1] = NULL;
        for (unsigned i=1; i<items; i++) {
            stack_argv[i - 1] = exs_SvPVbyte_nolen(ST(i));
        }

        char** new_argv = _dup_argv_deep(aTHX_ stack_argv, perl_popt->name);