recover CR is slurping more data

diff --git a/scripts/evolis-simulator.pl b/scripts/evolis-simulator.pl
index 7a00e6a..2df5669 100755 (executable)
--- a/scripts/evolis-simulator.pl
+++ b/scripts/evolis-simulator.pl
@@ -25,6 +25,7 @@ warn "# tell ",tell($e),"\n";
        my $l = length $data;
        warn "# bitmap $l $len\n";
        return $data if length $data == $len;
+       $data .= "\r";
        my $rest;
        my $l = $len - length $data;
        read $e, $rest, $l;