Проверьте, не определены ли элементы массива из XSUB

Question

Я пытаюсь проверить, является ли элемент массива undef формой XSUB, например:

void
print_array(array)
    AV *array

    PREINIT:
        int len;
        SV **sv_ptr;
        SV *sv;
        int i;

    CODE:
        len = av_len(array) + 1;
        printf("[");
        for (i = 0; i < len; i++) {
            sv_ptr = av_fetch( array, i, 0 );
            if (!sv_ptr) {
                printf("empty");
            }
            else {
                sv = *sv_ptr;
                if (sv == &PL_sv_undef) {
                    printf("undef");
                }
                else {
                    printf("*");
                }
            }

            if (i < (len - 1)) {
                printf(", ");
            }
        }

        printf("]\n");

Если я запускаю эту подпрограмму из сценария Perl:

use strict;
use warnings;
use ArrayPrint;

my $array = [];
$array->[4] = undef;
ArrayPrint::print_array($array);

Вывод:

[empty, empty, empty, empty, *]

Почему последний элемент не показывает undef?

Answer 1

SV может содержать неопределенное значение, но все же быть SV, отличным от PL_sv_undef. Вам нужно заменить тест PL_sv_undef на

SvGETMAGIC(sv);
if (!SvOK(sv)) { printf "undef" } else { printf "*" }