From a21934cf314976ab6a6474587508c2ba6e3fa508 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Mon, 6 Feb 2012 19:34:38 +0100
Subject: [PATCH] repeat previous line : is now supported

---
 pbm2ZPL.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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;
-- 
2.20.1