projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
remove args typo from rbn.pl
[spider.git]
/
perl
/
rbn.pl
diff --git
a/perl/rbn.pl
b/perl/rbn.pl
index f92b32019c8c8a8f218c3497a4343cc68aef08f8..eb2c743ecd9f2ff46348a96939532975451a2162 100755
(executable)
--- a/
perl/rbn.pl
+++ b/
perl/rbn.pl
@@
-39,7
+39,7
@@
GetOptions('host=s' => \$host,
'want=s' => sub {
my ($name, $value) = @_;
$wantcw = $wantrtty = $wantpsk = $wantbeacon = 0;
'want=s' => sub {
my ($name, $value) = @_;
$wantcw = $wantrtty = $wantpsk = $wantbeacon = 0;
- for (split /
:,|
/, $value) {
+ for (split /
[:,\|]
/, $value) {
++$wantcw if /^cw$/i;
++$wantpsk if /^psk$/i;
++$wantrtty if /^rtty$/i;
++$wantcw if /^cw$/i;
++$wantpsk if /^psk$/i;
++$wantrtty if /^rtty$/i;