From 0d4d13ed60a0330a5095f8edf51e3b5820d1872d Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Tue, 21 Oct 2014 16:51:23 +0200
Subject: [PATCH] die when trying to decode short tag

---
 lib/Biblio/RFID/RFID501.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lib/Biblio/RFID/RFID501.pm b/lib/Biblio/RFID/RFID501.pm
index 5c75088..1642dc9 100644
--- a/lib/Biblio/RFID/RFID501.pm
+++ b/lib/Biblio/RFID/RFID501.pm
@@ -119,6 +119,10 @@ sub to_hash {
 
 	$data = join('', @$data) if ref $data eq 'ARRAY';
 
+	if ( length($data) < 24 ) {
+		die "short data from tag ", length($data), " < 24 bytes";
+	}
+
 	warn "## to_hash ",dump($data);
 
 	my ( $u1, $set_item, $u2, $type, $content, $br_lib, $custom, $zero ) = unpack('C4Z16Nl>l',$data);
-- 
2.20.1