fix implementation of blank

diff --git a/scripts/program.pl b/scripts/program.pl
index ec33b88..45a06b3 100755 (executable)
--- a/scripts/program.pl
+++ b/scripts/program.pl
@@ -39,8 +39,7 @@ $Biblio::RFID::debug = $debug;
 foreach my $tag ( $rfid->tags ) {
        warn "visible $tag\n";
        next unless $tag eq $sid;
-       if ( $blank ) {
-warn dump( $blank );
+       if ( grep { defined $_ } values $blank ) {
                my $type = ( grep { $blank->{$_} } keys %$blank )[0];
                warn "BLANK $type $tag\n";
                $rfid->write_blocks( $tag => Biblio::RFID::RFID501->$type );