From 485c76be8389ede166cf9fef4e96841e95baf490 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Thu, 29 Jul 2010 14:07:19 +0200 Subject: [PATCH] --only now accepts just part of name --- scripts/scan.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scripts/scan.pl b/scripts/scan.pl index 47da568..605b82e 100755 --- 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 $@; -- 2.20.1