Lines Matching full:"$ block"
316 sub delete_option($$)
317 {
318 my ($num, $block) = @_;
320 while ($x < length($block)) {
321 ($o, $l) = unpack("CC", substr($block, $x, 2));
324 substr($block, $x, $l+2) = '';
327 substr($block, $x, 1) = '';
330 $block = substr($block, 0, $x);
338 return $block;
343 sub add_option($$$)
344 {
345 my ($num, $data, $block) = @_;
345 $block = delete_option($num, $block);
348 return $block;
352 return $block . pack("CC", $num, length($data)) . $data;
