view release on metacpan or  search on metacpan

t/pkcs12-info-cve-2026-8507.t  view on Meta::CPAN

    my $found_localKeyID = 0;
    for my $section (@{$hash->{pkcs7_data}}) {
        for my $bag (@{$section->{bags} // []}) {
            if (exists $bag->{bag_attributes}{localKeyID}) {
                $found_localKeyID = 1;
                last;
            }
        }
        last if $found_localKeyID;
    }
    ok($found_localKeyID, 'info_as_hash() correctly decoded localKeyID OCTET STRING attribute');
}