- my @mask = (0, 0, 0, 0);
- if ($masked) {
- last if $len < $offset + 4;
-
- @mask = (unpack('C', substr($wsbuf, $offset+0, 1)),
- unpack('C', substr($wsbuf, $offset+1, 1)),
- unpack('C', substr($wsbuf, $offset+2, 1)),
- unpack('C', substr($wsbuf, $offset+3, 1)));
-
- $offset += 4;
- }
-