fix write_blocks

[Biblio-RFID.git] / scripts / program.pl

diff --git a/scripts/program.pl b/scripts/program.pl
index 4f9eaff..f15dfa8 100755 (executable)
--- a/scripts/program.pl
+++ b/scripts/program.pl
@@ -25,7 +25,7 @@ foreach my $rfid ( @rfid ) {
        foreach my $tag ( keys %$visible ) {
                next unless $tag eq $sid;
                warn "PROGRAM $tag with $content\n";
-               $rfid->write_blocks( $tag, RFID::Biblio::RFID501->from_hash( content => $content ) );
+               $rfid->write_blocks( $tag, RFID::Biblio::RFID501->from_hash({ content => $content }) );
        }
 }