sub _close {
  my $data = shift;
  my $ftp  = ${*$data}{'net_ftp_cmd'};

  $data->SUPER::close();

  delete ${*$ftp}{'net_ftp_dataconn'} ################# LINE 54
    if exists ${*$ftp}{'net_ftp_dataconn'}
    && $data == ${*$ftp}{'net_ftp_dataconn'};
[download]

$ perl -MNet::FTP -MNet::FTP::dataconn -le ' Net::FTP::dataconn->new->
+close '
Can't use an undefined value as a symbol reference at /usr/lib/perl5/5
+.10.0/Net/FTP/dataconn.pm line 54.
[download]

Thanks for the reply

My program runs successfully for most of the times. If there is any error in the program then how it is running successfully.

This error will occur rarely but fatal.It occurs(mostly) while using ls command as follows

my @ftpfiles=$ftp->ls or die "cannot get file list;    
print "Got  file list\n";
[download]

It is also not printing the statement in the die. Whats the problem?

Waiting for the bless

Arun Kumar C.N

It is also not printing the statement in the die. Whats the problem?

Then obviously this isn't where your program is dying. Have you used the debugger? Used print statements or Data::Dumper calls judiciously?

If the problem occurs with any regularity (as you say it does), it's deterministic.

Causing discord between Net::FTP and IO::Sockets thread is related to your question. Do you have reliable way to reproduce the problem?

Hello,

Thanks for the reply

So including the following lines in my program will fix my problem?

use Net::FTP::A;
use IO::Socket::INET;
[download]

There is no regularity in the error. It is arising rarely.

Arun Kumar C.N

So including the following lines in my program will fix my problem?

Not sure. But if it will, let us know ;)