--only now accepts just part of name

diff --git a/scripts/scan.pl b/scripts/scan.pl
index 47da568..605b82e 100755 (executable)
--- a/scripts/scan.pl
+++ b/scripts/scan.pl
@@ -18,7 +18,7 @@ my @readers = ( '3M810', 'CPRM02' );
 my @rfid;
 
 foreach my $reader ( @readers ) {
-       next if $only && $only ne $reader;
+       next if $reader !~ /$only/i && $only ne $reader;
        my $module = "RFID::Biblio::$reader";
        eval "use $module";
        die $@ if $@;