rename module to Biblio::RFID in source

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

diff --git a/lib/RFID/Biblio/RFID501.pm b/lib/RFID/Biblio/RFID501.pm
index 97d3ee0..5c75088 100644 (file)
--- a/lib/RFID/Biblio/RFID501.pm
+++ b/lib/RFID/Biblio/RFID501.pm
@@ -152,6 +152,8 @@ sub from_hash {
 
        warn "## from_hash ",dump($hash);
 
+       $hash->{$_} ||= 0 foreach ( qw( set total type branch library ) );
+
        return pack('C4Z16Nl>l',
                0x04,
                ( $hash->{set} << 4 ) | ( $hash->{total} & 0x0f ),