From 55baf82bee4acf05f093c6bf70a359bda7feb3ba Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Mon, 2 Aug 2010 14:33:57 +0200 Subject: [PATCH] fix write_blocks --- scripts/program.pl | 2 +- t/10-3M-810.t | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/scripts/program.pl b/scripts/program.pl index 4f9eaff..f15dfa8 100755 --- 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 }) ); } } diff --git a/t/10-3M-810.t b/t/10-3M-810.t index 238cc8f..259d18d 100755 --- a/t/10-3M-810.t +++ b/t/10-3M-810.t @@ -22,7 +22,7 @@ foreach my $tag ( @tags ) { ok( my $afi = $o->read_afi( $tag ), "read_afi $tag" ); - ok( $o->write_blocks( $tag, $blocks ), "write_blocks $tag" ); + ok( $o->write_blocks( $tag, $blocks->{tag} ), "write_blocks $tag" ); my $new_afi = "\x42"; -- 2.20.1