From ebd8d7a8b254c17282f65c94ac6dc6f26c062d19 Mon Sep 17 00:00:00 2001
From: Petr Baudis <pasky@ucw.cz>
Date: Tue, 27 Dec 2011 23:04:09 +0100
Subject: [PATCH] Brm::Lasic: Add seqid counter

---
 perl/Brm/Lasic.pm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/perl/Brm/Lasic.pm b/perl/Brm/Lasic.pm
index f18b5be..65d22f9 100644
--- a/perl/Brm/Lasic.pm
+++ b/perl/Brm/Lasic.pm
@@ -57,6 +57,12 @@ The tty device filehandle. Avoid using directly.
 =cut
 has 'fd' => (is => 'rw', isa => 'FileHandle');
 
+=item B<seqid>
+
+Sequence id for commands. Just for internal use.
+=cut
+has 'seqid' => (is => 'rw', isa => 'Num', default => 0);
+
 =back
 
 =head2 METHODS
@@ -158,7 +164,8 @@ sub msg {
 	my $self = shift;
 
 	my (@args) = @_;
-	push @args, 1;
+	push @args, 1 + $self->seqid % 254;
+	$self->seqid($self->seqid + 1);
 
 	my $fd = $self->fd();
 	print $fd join(' ', @args)."\r\n";