char **
XS_unpack_charPtrPtr (SV *arg) {
    char **ret;
    AV *av;
    I32 i;

    if (!arg || !SvOK (arg) || !SvROK (arg) || (SvTYPE (SvRV (arg)) != SVt_AV)) {
        croak ("array reference expected");
    }

    av = (AV *)SvRV (arg);
    ret = (char **)malloc (av_len (av) + 1);

    for (i = 0; i <= av_len (av); i++) {
        SV **elem = av_fetch (av, i, 0);

        if (!elem || !*elem) {
            croak ("foo"):
        }

        ret[i] = SvPV_nolen (*elem);
    }

    ret[i + 1] = NULL;

    return ret;
}