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