program tags from command line

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

diff --git a/lib/RFID/Biblio/RFID501.pm b/lib/RFID/Biblio/RFID501.pm
index dc30fe8..760fe24 100644 (file)
--- a/lib/RFID/Biblio/RFID501.pm
+++ b/lib/RFID/Biblio/RFID501.pm
@@ -118,7 +118,10 @@ sub to_hash {
 }
 
 sub from_hash {
-       my ( $self, $hash ) = @_;
+       my $self = shift;
+       my $hash = {@_};
+
+       warn "## from_hash ",dump($hash);
 
        return pack('C4Z16Nl>l',
                0x04,