From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Mon, 6 Feb 2012 18:34:38 +0000 (+0100)
Subject: repeat previous line : is now supported
X-Git-Url: http://git.rot13.org/?p=Printer-Zebra.git;a=commitdiff_plain;h=a21934cf314976ab6a6474587508c2ba6e3fa508

repeat previous line : is now supported
---

diff --git a/pbm2ZPL.pl b/pbm2ZPL.pl
index 9652e2e..7223742 100755
--- a/pbm2ZPL.pl
+++ b/pbm2ZPL.pl
@@ -66,11 +66,12 @@ sub zpl_compress {
 foreach my $y ( 0 .. $h - 1 ) {
 	my $line = substr( $bitmap, $y * ( $w / 8 ), $w / 8 );
 	if ( $line eq $last_line ) {
-		print ":" && warn "# $y repeat previous line\n";
+		print ':';
+		warn "# $y repeat previous line\n";
 	} else {
 		my $hex = unpack('H*', $line);
 		if ( $compress ) {
-#			$last_line = $line;
+			$last_line = $line;
 			$hex =~ s/0+$/,/  && warn "# $y fill 0 to right\n";
 			$hex =~ s/F+$/!/i && warn "# $y fill 1 to right\n";
 			$hex =~ s/((.)\2+)/zpl_compress($1)/egs;