Lines Matching refs:ptr
61 my $ptr = 2;
65 my $random = substr($self->data, $ptr, 32);
66 $ptr += 32;
69 $session_id_len = unpack('C', substr($self->data, $ptr));
70 $ptr++;
71 $session = substr($self->data, $ptr, $session_id_len);
72 $ptr += $session_id_len;
74 my $ciphersuite = unpack('n', substr($self->data, $ptr));
75 $ptr += 2;
77 $comp_meth = unpack('C', substr($self->data, $ptr));
78 $ptr++;
80 my $extensions_len = unpack('n', substr($self->data, $ptr));
84 $ptr += 2;
90 $extension_data = substr($self->data, $ptr);
96 if (length($self->data) != $ptr) {
