my $out;
# ZPL decompress
- my $repeat = 1;
+ my $repeat = 0;
foreach my $p ( 0 .. length($data) - 1 ) {
my $c = substr($data,$p,1);
if ( $c eq ',' ) {
my $l = ( $w * 2 ) - length($out) % ( $w * 2 );
$l = $w * 2 if $l == 0;
warn "# $p ONE-to-EOL $c [$l]\n";
- $out .= "1" x $l;
+ $out .= "F" x $l;
} elsif ( $c eq ':' ) {
$out .= length($out) > $w ? substr($out,-$w*2) : "00" x $w;
- warn "# $p :\n";
+ warn "# $p repeat last line\n";
} elsif ( $c eq 'z' ) {
$repeat += 400;
} elsif ( $c ge 'g' && $c le 'y' ) {