From dbc07bca561550cf5dd928796e1747f480929329 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Wed, 4 Jan 2017 22:17:14 +0000
Subject: [PATCH] remove args typo from rbn.pl
---
perl/rbn.pl | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
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;
--
2.43.0