From dbc07bca561550cf5dd928796e1747f480929329 Mon Sep 17 00:00:00 2001 From: Dirk Koopman 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