don't chomp line all over

this fixes compressed page dumps

diff --git a/evolis-printer.pl b/evolis-printer.pl
index 34a2e48..a753b27 100755 (executable)
--- a/evolis-printer.pl
+++ b/evolis-printer.pl
@@ -18,9 +18,9 @@ sub save_pbm;
 while(<>) {
        die "no escape at beginning",dump($_) unless s/^(\x00*)\x1B//;
        warn "WARNING: ", length($1), " extra nulls before ESC\n" if $1;
-       chomp;
        my @a = split(/;/,$_);
        my $c = shift @a;
+       chomp $c;
        if ( $c eq 'Pmi' ) {
                print "$_ mode insertion @a\n";
        } elsif ( $c eq 'Pc' ) {
@@ -50,7 +50,7 @@ while(<>) {
                print "$c;$color;$line;$len;... download bitmap compressed\n";
                while ( $len > length($comp) ) {
                        warn "# slurp more ",length($comp), " < $len\n";
-                       $comp .= $/ . <>;
+                       $comp .= <>;
                }
                $len == length $comp or warn "wrong length $len != ", length $comp;