Lines Matching refs:ptr
49 my $ptr = 2;
51 my $random = substr($self->data, $ptr, 32);
52 $ptr += 32;
53 my $session_id_len = unpack('C', substr($self->data, $ptr));
54 $ptr++;
55 my $session = substr($self->data, $ptr, $session_id_len);
56 $ptr += $session_id_len;
57 my $ciphersuite_len = unpack('n', substr($self->data, $ptr));
58 $ptr += 2;
59 my @ciphersuites = unpack('n*', substr($self->data, $ptr,
61 $ptr += $ciphersuite_len;
62 my $comp_meth_len = unpack('C', substr($self->data, $ptr));
63 $ptr++;
64 my @comp_meths = unpack('C*', substr($self->data, $ptr, $comp_meth_len));
65 $ptr += $comp_meth_len;
66 my $extensions_len = unpack('n', substr($self->data, $ptr));
67 $ptr += 2;
70 my $extension_data = substr($self->data, $ptr);