From e3d07b7bcee9e98f7600a9cea357a3a58397f745 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Mon, 6 Feb 2012 16:58:00 +0100
Subject: [PATCH] fix fill 1 to right

---
 ZPL2pbm.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ZPL2pbm.pl b/ZPL2pbm.pl
index 796b721..692fb66 100755
--- a/ZPL2pbm.pl
+++ b/ZPL2pbm.pl
@@ -47,7 +47,7 @@ while( $line ) {
 				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 repeat last line\n";
-- 
2.20.1