From afae97aece05790881ac18dee6944a4a7b4e26e2 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Tue, 7 Nov 2023 14:20:54 +0100 Subject: [PATCH] SmartX turn off warnings --- lib/Biblio/RFID/SmartX.pm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lib/Biblio/RFID/SmartX.pm b/lib/Biblio/RFID/SmartX.pm index 27aa15c..4c78297 100644 --- a/lib/Biblio/RFID/SmartX.pm +++ b/lib/Biblio/RFID/SmartX.pm @@ -20,6 +20,7 @@ Biblio::RFID::SmartX - Croatian student cards format sub bcd { my $data = shift; + no warnings; return join('', map { sprintf("%02x",ord($_)) } split (//, $data)); } @@ -36,6 +37,8 @@ sub to_hash { $decoded->[$_] = bcd( $data->[$_] ); } + no warnings; + my $hash; $hash->{SXID} = substr( $decoded->[4], 0, 20 ); $hash->{JMBAG} = substr( $decoded->[4], 22, 10 ); -- 2.20.1