X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=lib%2FRFID%2FBiblio%2F3M810.pm;h=1b37a4666ab6252dd85adc398dc37f873f2a1200;hb=fbcbf54e51b8cef876e884f5e3c23517b4cf80af;hp=f5bb91f7a9ec8e8619ba3beace391bbe5247821f;hpb=9b8cadb57cec08d1a9d0ad74e033d805978343c5;p=Biblio-RFID.git

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