From: Dirk Koopman Date: Wed, 4 Jan 2017 22:17:14 +0000 (+0000) Subject: remove args typo from rbn.pl X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=dbc07bca561550cf5dd928796e1747f480929329;p=spider.git remove args typo from rbn.pl --- diff --git a/perl/rbn.pl b/perl/rbn.pl index f92b3201..eb2c743e 100755 --- 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; - for (split /:,|/, $value) { + for (split /[:,\|]/, $value) { ++$wantcw if /^cw$/i; ++$wantpsk if /^psk$/i; ++$wantrtty if /^rtty$/i;