]> dxcluster.net Git - spider.git/commitdiff
remove args typo from rbn.pl
authorDirk Koopman <djk@tobit.co.uk>
Wed, 4 Jan 2017 22:17:14 +0000 (22:17 +0000)
committerDirk Koopman <djk@tobit.co.uk>
Wed, 4 Jan 2017 22:17:14 +0000 (22:17 +0000)
perl/rbn.pl

index f92b32019c8c8a8f218c3497a4343cc68aef08f8..eb2c743ecd9f2ff46348a96939532975451a2162 100755 (executable)
@@ -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;