Lines Matching full:components
153 # The components become a list of ( identifier, number ) pairs,
156 my @components;
159 @components = ( $oid =~ m/${objcomponent_re}\s*/g );
162 @components = ( $oid =~ m/${xmlobjcomponent_re}\.?/g );
165 croak "Invalid ASN.1 object '$input'" unless @components;
167 unless scalar(@components) % 2 == 0;
178 } ( @components[0..1] );
188 } @components[2..$#components]
192 # components following it, we change the type of that identifier
194 if (scalar @components > 2
195 && $components[0] ne ''
196 && defined $name2oid{$components[0]}) {
197 $name2oid{$components[0]}->{type} = 'arc';