remove extra ^
authorDobrica Pavlinusic <dpavlin@rot13.org>
Fri, 3 Feb 2012 18:18:29 +0000 (19:18 +0100)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Fri, 3 Feb 2012 18:18:29 +0000 (19:18 +0100)
pbm2ZPL.pl

index 2b9e214..fbe2ba3 100755 (executable)
@@ -25,4 +25,4 @@ foreach my $y ( 0 .. $h - 1 ) {
        print unpack('H*', $line);
 }
 
        print unpack('H*', $line);
 }
 
-print "^^XA\r\n^MMT\r\n^LL0328\r\n^PW831\r\n^LS0\r\n^FT0,352^XG000.GRF,1,1^FS\r\n^PQ1,0,1,Y^XZ\r\n^XA^ID000.GRF^FS^XZ";
+print "^XA\r\n^MMT\r\n^LL0328\r\n^PW831\r\n^LS0\r\n^FT0,352^XG000.GRF,1,1^FS\r\n^PQ1,0,1,Y^XZ\r\n^XA^ID000.GRF^FS^XZ";