Re: [MacPerl] Net:FTP hanging my perl program

[John Gilmore-Baldwin <john@dwx.com>]

OK.  I ran the program in debug last night, and here's where it hangs up.
It looks to me like the $cmd->getline gets stuck in a loop, first getting
an EOF, then repeatedly timing out on a dead connection.  I've looked at
Net::Cmd, but nothing screams at me.  In both places, the subroutine is
saying return undef.

Here's the debug output (somewhat truncated):

Net::FTP=GLOB(0x359bce0)>>> QUIT

# Net::FTP: Unexpected EOF on command channel
File 'SD1:FTPtest.pl'; Line 184
Net::FTP=GLOB(0x359bce0)<<< Timed out waiting for socket connection
# Net::FTP: Unexpected EOF on command channel
File 'SD1:FTPtest.pl'; Line 184
Net::FTP=GLOB(0x359bce0)<<< # Net::FTP=GLOB(0x359bce0): Timeout
File 'SD1:FTPtest.pl'; Line 184
Net::FTP=GLOB(0x359bce0)<<< # Net::FTP=GLOB(0x359bce0): Timeout
File 'SD1:FTPtest.pl'; Line 184

These timeout errors seem to continue until I restart the program.

I'll keep combing through the Net:: code, but any ideas would be welcome.

Thanks for all the help so far,
John Gilmore-Baldwin

>} Am I handling alarms correctly here?
>
>Looks like it.  Have you tried with Net::FTP debugging on?  You might get
>a better idea of what's going on:
>
>$ftp = Net::FTP->new($host, Debug => 1);
>
>}
>} John



***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch