This allows correct enter/leave events if more than one reader is
connected to same computer
}
- 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} );