- my $len = ord(substr($comp,$i,4));
- $i += 1;
- warn "$i comp $len\n";
- $data .= substr($comp,$i,$len);
- $data .= "\x00" x ( $w - $len );
- $i += $len;
+ my $first = substr($comp,$i++,1);
+ if ( $first eq "\x00" ) {
+ $data .= "\x00" x 81;
+ } elsif ( $first eq "\xFF" ) {
+ $data .= "\xFF" x 81;
+ } else {
+ my $len = ord $first;
+ $data .= substr($comp,$i,$len);
+ my $padding = 81 - $len;
+warn "# $len $padding\n";
+ $data .= "\x00" x $padding;
+ $i += $len;
+ }