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;
> >}
> >
> >
> >
