fixed case without filter

diff --git a/lib/RFID/Biblio/Readers.pm b/lib/RFID/Biblio/Readers.pm
index f813845..77f1133 100644 (file)
--- a/lib/RFID/Biblio/Readers.pm
+++ b/lib/RFID/Biblio/Readers.pm
@@ -44,14 +44,14 @@ my @readers = ( '3M810', 'CPRM02', 'librfid' );
 sub _available {
        my ( $self, $filter ) = @_;
 
-       $filter = 'all' unless defined $filter;
+       $filter = '' unless defined $filter;
 
        return $self->{_available}->{$filter} if defined $self->{_available}->{$filter};
 
        my @rfid;
 
        foreach my $reader ( @readers ) {
-               next if $reader !~ /$filter/i;
+               next if $filter && $reader !~ /$filter/i;
                my $module = "RFID::Biblio::$reader";
                eval "use $module";
                die $@ if $@;