SmartX turn off warnings

[Biblio-RFID.git] / lib / Biblio / RFID / SmartX.pm

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