From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Tue, 27 Jul 2010 10:00:36 +0000 (+0200)
Subject: fill blocks from 0, not 1
X-Git-Tag: RFID-Biblio-0.02~149
X-Git-Url: http://git.rot13.org/?p=Biblio-RFID.git;a=commitdiff_plain;h=8130d56a6ffad57dc972ccbf789207aa9356b9e2;hp=7445a995d6d55194c244cc9a8654f476e8eec163

fill blocks from 0, not 1
---

diff --git a/lib/RFID/Serial/CPRM02.pm b/lib/RFID/Serial/CPRM02.pm
index acefc54..6f5f792 100644
--- a/lib/RFID/Serial/CPRM02.pm
+++ b/lib/RFID/Serial/CPRM02.pm
@@ -138,7 +138,7 @@ sub read_blocks {
 				my $sec = ord(substr($data,0,1));
 				my $db  = substr($data,1,$DB_SIZE);
 				warn "## block $n ",dump( $sec, $db ) if $debug;
-				$tag_blocks->{$tag}->[$block+$n] = reverse split(//,$db);
+				$tag_blocks->{$tag}->[$block+$n-1] = reverse split(//,$db);
 				$data = substr($data, $DB_SIZE + 1);
 			}
 		});