invalidate cache of tags for unselected readers

diff --git a/lib/Biblio/RFID/Reader.pm b/lib/Biblio/RFID/Reader.pm
index c66febd..e3f9d6e 100644 (file)
--- a/lib/Biblio/RFID/Reader.pm
+++ b/lib/Biblio/RFID/Reader.pm
@@ -55,7 +55,15 @@ sub tags {
        foreach my $rfid ( @{ $self->{_readers} } ) {
 
                if ( exists $triggers->{reader} ) {
-                       next unless $triggers->{reader}->($rfid);
+                       if ( ! $triggers->{reader}->($rfid) ) {
+                               # invalidate tags from other readers
+                               if ( exists $self->{_tags} ) {
+                                       delete  $self->{_tags}->{$_} foreach (
+                                               grep { $self->{_tags}->{$_}->{reader} eq ref $rfid } keys %{ $self->{_tags} }
+                                       );
+                               }
+                               next;
+                       }
                }
 
                warn "# inventory on $rfid";