From fbcbf54e51b8cef876e884f5e3c23517b4cf80af Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Tue, 3 Aug 2010 15:02:38 +0200 Subject: [PATCH] fix bytes array passwd to write_blocks --- lib/RFID/Biblio/3M810.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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); -- 2.20.1