invalidate tags after going through all reader

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

diff --git a/lib/Biblio/RFID/Reader.pm b/lib/Biblio/RFID/Reader.pm
index 13b8895..0ec702e 100644 (file)
--- a/lib/Biblio/RFID/Reader.pm
+++ b/lib/Biblio/RFID/Reader.pm
@@ -79,11 +79,11 @@ sub tags {
 
                }
        
-               foreach my $tag ( grep { $self->{_tags}->{$_}->{time} == 0 } keys %{ $self->{_tags} } ) {
-                       $triggers->{leave}->( $tag ) if $triggers->{leave};
-                       $self->_invalidate_tag( $tag );
-               }
+       }
 
+       foreach my $tag ( grep { $self->{_tags}->{$_}->{time} == 0 } keys %{ $self->{_tags} } ) {
+               $triggers->{leave}->( $tag ) if $triggers->{leave};
+               $self->_invalidate_tag( $tag );
        }
 
        warn "## _tags ",dump( $self->{_tags} );