Re: Net::FTP::Recursive;

No, I commented everything out, except
$ftp = Net::FTP::Recursive->new($host, Timeout=>60) or $newerr=1;
 I still received the same error message.


James D. White wrote:

> Just a guess, because I have used only Net::FTP, not  
> Net::FTP::Recursive, but is line 25
> "$ftp->quit if $newerr;"?  How can you quit, if you did not connect? If 
> $ftp is false it cannot
> be a valid object reference.

> PerlDiscuss - Perl Newsgroups and mailing lists wrote:

> >I am using the Recursive Lib to copy directories from one location to
> >another. However, I would like to verify that I was able to make a
> >successful connection to the server by the following code. If the
> >connection fails, it goes to a subroutine that prints out the errors. This
> >error handling  successful for all the other routines, like logging in,
> >cwd, or rput. However, when I test the connection piece, i get the
> >following error message.
> >
> >"Can't bless non-reference value at
> >/usr/local/lib/perl5/site_perl/5.6.1/Net/FTP/Recursive.pm line 25."
> >
> >
> >The following is the code:
> >$ftp = Net::FTP::Recursive->new($host, Timeout=>60) or $newerr=1;
> >        push  @ERRORS, "Can't login to server: $host: $!n" if $newerr;
> >        $ftp->quit if $newerr;
> >        myerr() if $newerr;
> >        print "Connected to $hostn";
> >
> >sub myerr {
> >  print "Error!!: n";
> >  print @ERRORS;
> >  exit 1;
> >}
> >
> >  
> >