wrap command into ESC CR before sending it

diff --git a/lib/Printer/EVOLIS/Parallel.pm b/lib/Printer/EVOLIS/Parallel.pm
index 2ccda9b..61a756f 100644 (file)
--- a/lib/Printer/EVOLIS/Parallel.pm
+++ b/lib/Printer/EVOLIS/Parallel.pm
@@ -35,6 +35,12 @@ sub new {
 
 sub command {
        my ( $self, $send ) = @_;
+       $send = "\e$send\r" unless $send =~ m/^\e/;
+       $self->send( $send );
+}
+
+sub send {
+       my ( $self, $send ) = @_;
 
        my $port = $self->{port};
        die "no port $port" unless -e $port;