projects
/
Biblio-RFID.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
fd72658
)
SmartX turn off warnings
master
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Tue, 7 Nov 2023 13:20:54 +0000
(14:20 +0100)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Tue, 7 Nov 2023 13:20:54 +0000
(14:20 +0100)
lib/Biblio/RFID/SmartX.pm
patch
|
blob
|
history
diff --git
a/lib/Biblio/RFID/SmartX.pm
b/lib/Biblio/RFID/SmartX.pm
index
27aa15c
..
4c78297
100644
(file)
--- 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 );