Lines Matching refs:len

50     my $len;
56     $len = read(FD, $contents, $st[7]) || die $file;
58     die "$file: Wanted length ", $st[7], ", got ", $len, "\n"
59 	if ($len != $st[7]);
129     my ($tag, $len) = unpack("CC", substr(${$cursor->[2]}, $cursor->[0], 2));
144 	if ($len == 0x80);
146     if ($len > 0x80) {
147 	my $l = $len - 0x80;
152 	    $len = unpack("C", substr(${$cursor->[2]}, $cursor->[0], 1));
154 	    $len = unpack("n", substr(${$cursor->[2]}, $cursor->[0], 2));
156 	    $len = unpack("C", substr(${$cursor->[2]}, $cursor->[0], 1)) << 16;
157 	    $len = unpack("n", substr(${$cursor->[2]}, $cursor->[0] + 1, 2));
159 	    $len = unpack("N", substr(${$cursor->[2]}, $cursor->[0], 4));
168     die $x509, ": ", $cursor->[0], ": ASN.1 data underrun (", $len, ")\n"
169 	if ($cursor->[1] < $len);
171     my $ret = [ $tag, [ $cursor->[0], $len, $cursor->[2] ] ];
172     $cursor->[0] += $len;
173     $cursor->[1] -= $len;
186     my ($offset, $len, $data) = @$cursor;
187     return substr($$data, $offset, $len);