[Dxspider-support] Build 0.62 problem

[Dirk Koopman G1TLH]

At first sight, I *thought* this was a perl bug.

But it is a bug brought on by my code. So I have added something that I 
would like you to try.

Please let me know what happens as I don't have an AGW system to debug 
against.

Dirk G1TLH

Danilo Brelih wrote:
> iz8dpl at libero.it pravi:
> 
>> It 'happened to some colleague?
> 
> I was reported the nearly same situation here few days back. With AX25 
> partner
> node locked out DXSpider works fine otherwise every connection period 
> cluster
> is crashing. CUL Dan, S50U @ S50CLX
> 
> 
> With latest cvs v1.55 build 0.62 crash appears here. I did lockout my RF
> partner temporarily.
> 
> CUL Dan, S50U @ S50CLX
> 
> 1268087107^connect 7: got: ":S55YKU>" sending: "c s50dxs"
> 1268087107^<- I ON0DXK-5 PC92^N3MEQ-280707^D^^5UU1DX^H96^
> 1268087107^<- I ON0DXK-5 PC92^UU1DX-180700^D^^5N3MEQ-2^H94^
> 1268087108^<- I ON0DXK-5 PC92^W6RFU80706^C^7N7TR:5499^H93^
> 1268087108^connect 7: *** Klice (S50DXS) 9A0XZB-6 S50CLX-3 na kanalu 3 ***
> 1268087108^setsockopt tcp_nodelay: Permission denied
> 1268087108^DXChannel S50DXS created (7)
> 1268087108^Bad arg length for Socket::unpack_sockaddr_in, length is 2, 
> should be 16 at /usr/lib/perl5/5.8.8/i386-linux-thread-multi/Socket.pm 
> line 370.
> 1268087108^ at /usr/lib/perl5/5.8.8/i386-linux-thread-multi/Socket.pm 
> line 370
> 1268087108^    Socket::sockaddr_in('\x{1}\x{0}') called at 
> /usr/lib/perl5/5.8.8/IO/Socket/INET.pm line 259
> 1268087108^    
> IO::Socket::INET::peeraddr('IO::Socket::INET=GLOB(0xad16c6c)') called at 
> /usr/lib/perl5/5.8.8/IO/Socket/INET.pm line 272
> 1268087108^    
> IO::Socket::INET::peerhost('IO::Socket::INET=GLOB(0xad16c6c)') called at 
> /spider/perl/Msg.pm line 200
> 1268087108^    Msg::peerhost('ExtMsg=HASH(0xad176c8)') called at 
> /spider/perl/DXProt.pm line 272
> 1268087108^    DXProt::new('DXProt', 'S50DXS', 'ExtMsg=HASH(0xad176c8)', 
> 'DXUser=HASH(0xace79c0)') called at /spider/perl/cluster.pl line 225
> 1268087108^    main::new_channel('ExtMsg=HASH(0xad176c8)', 
> 'OS50DXS|ax25') called at /spider/perl/ExtMsg.pm line 157
> 1268087108^    ExtMsg::to_connected('ExtMsg=HASH(0xad176c8)', 'S50DXS', 
> 'O', 'ax25') called at /spider/perl/ExtMsg.pm line 85
> 1268087108^    ExtMsg::dequeue('ExtMsg=HASH(0xad176c8)') called at 
> /spider/perl/Msg.pm line 560
> 1268087108^    Msg::_rcv('ExtMsg=HASH(0xad176c8)') called at 
> /spider/perl/Msg.pm line 266
> 1268087108^    Msg::__ANON__('IO::Socket::INET=GLOB(0xad16c6c)') called 
> at /spider/perl/Msg.pm line 680
> 1268087108^    Msg::event_loop('Msg', 10, 0.01) called at 
> /spider/perl/cluster.pl line 538
> 1268087108^DXChannel S50DXS destroyed (7)
> 1268087108^DXChannel N6WS-6 destroyed (6)
> 1268087108^DXChannel ON4KST destroyed (5)
> 1268087108^DXChannel YU1YV destroyed (4)
> 1268087108^DXChannel S52OT destroyed (3)
> 1268087108^DXChannel S50CLX destroyed (2)
> 1268087108^DXChannel ON0DXK-5 destroyed (1)
> 
>