[Dxspider-support] defunkt sh/dx after migration to mojo

[rin JG1VGX]

Hi Dirk-san and all,

I have just updated my JG1VGX-9 cluster to the mojo branch according
to the instructions.

It works mostly, but strangely sh/dx with subcommands do not work.

These works:
sh/dx
sh/dx 5
sh/dx 5-10
sh/dx day 3

While these do NOT work:
sh/dx by <call>
sh/dx <prefix>
sh/dx by_zone 25
.... and almost everything else.

They simply returns something like this:
sh/dx by ja
0.0              22-Jun-2020 1503Z                                    <>
0.0              22-Jun-2020 1503Z                                    <>
M0CFF de JG1VGX-9 22-Jun-2020 1503Z dxspider >

watchdbg messages (please disregard timestamps)
14:15:59 (state) Global symbol "$f1" requires explicit package name
(did you forget to declare "my $f1"?) at (eval 147) line 1.
14:15:59 (state) Use of uninitialized value $_[4] in concatenation (.)
or string at /spider/perl/Spot.pm line 393.
14:15:59 (state)  at /spider/perl/Spot.pm line 393.
14:15:59 (state) Global symbol "$f1" requires explicit package name
(did you forget to declare "my $f1"?) at (eval 147) line 1.
14:15:59 (state) Use of uninitialized value in sprintf at
/spider/perl/Spot.pm line 393.
14:15:59 (state)  at /spider/perl/Spot.pm line 393.
14:15:59 (state) Global symbol "$f1" requires explicit package name
(did you forget to declare "my $f1"?) at (eval 147) line 1.
14:15:59 (state) Use of uninitialized value in sprintf at
/spider/perl/Spot.pm line 393.
14:15:59 (state)  at /spider/perl/Spot.pm line 393.
14:15:59 (state) Global symbol "$f1" requires explicit package name
(did you forget to declare "my $f1"?) at (eval 147) line 1.
14:15:59 (state) Use of uninitialized value $_[4] in concatenation (.)
or string at /spider/perl/Spot.pm line 393.
14:15:59 (state)  at /spider/perl/Spot.pm line 393.
14:15:59 (state) Global symbol "$f1" requires explicit package name
(did you forget to declare "my $f1"?) at (eval 147) line 1.
14:15:59 (state) Use of uninitialized value in sprintf at
/spider/perl/Spot.pm line 393.
14:15:59 (state)  at /spider/perl/Spot.pm line 393.
14:15:59 (state) Global symbol "$f1" requires explicit package name
(did you forget to declare "my $f1"?) at (eval 147) line 1.
14:15:59 (state) Use of uninitialized value in sprintf at
/spider/perl/Spot.pm line 393.
14:15:59 (state)  at /spider/perl/Spot.pm line 393.

line 393 at Spot.pm:
# format a spot for user output in list mode
sub formatl
{
        my $t = ztime($_[2]);
        my $d = cldate($_[2]);
        return sprintf "%8.1f  %-11s %s %s  %-28.28s%7s>", $_[0],
$_[1], $d, $t, ($_[3]||''), "<$_[4]" ;    <<=======
}

Any ideas?
-- 
73 rin JG1VGX