From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Tue, 3 Aug 2010 13:02:38 +0000 (+0200)
Subject: fix bytes array passwd to write_blocks
X-Git-Tag: RFID-Biblio-0.02~74
X-Git-Url: http://git.rot13.org/?p=Biblio-RFID.git;a=commitdiff_plain;h=fbcbf54e51b8cef876e884f5e3c23517b4cf80af

fix bytes array passwd to write_blocks
---

diff --git a/lib/RFID/Biblio/3M810.pm b/lib/RFID/Biblio/3M810.pm
index f5bb91f..1b37a46 100644
--- a/lib/RFID/Biblio/3M810.pm
+++ b/lib/RFID/Biblio/3M810.pm
@@ -234,7 +234,9 @@ sub read_blocks {
 sub write_blocks {
 	my $tag = shift;
 	$tag = shift if ref $tag;
-	my $data = join('', @_);
+
+	my $data = shift;
+	$data = join('', @$data) if ref $data eq 'ARRAY';
 
 	warn "## write_blocks ",dump($tag,$data);