From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Mon, 16 Aug 2010 21:52:54 +0000 (+0200)
Subject: wrap command into ESC CR before sending it
X-Git-Tag: Printer-EVOLIS-0.01~12
X-Git-Url: http://git.rot13.org/?p=Printer-EVOLIS.git;a=commitdiff_plain;h=a53140cb79b6340fcd1352f05e78ba78f6fc7019

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
--- 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;