From owner-freebsd-perl@FreeBSD.ORG  Sun Apr  9 04:37:31 2006
Return-Path: <owner-freebsd-perl@FreeBSD.ORG>
X-Original-To: freebsd-perl@freebsd.org
Delivered-To: freebsd-perl@freebsd.org
Received: from mx1.FreeBSD.org (mx1.freebsd.org [216.136.204.125])
	by hub.freebsd.org (Postfix) with ESMTP id 65F7316A40F;
	Sun,  9 Apr 2006 04:37:31 +0000 (UTC)
	(envelope-from dan@dan.emsphone.com)
Received: from dan.emsphone.com (dan.emsphone.com [199.67.51.101])
	by mx1.FreeBSD.org (Postfix) with ESMTP id 8BD3743D55;
	Sun,  9 Apr 2006 04:37:30 +0000 (GMT)
	(envelope-from dan@dan.emsphone.com)
Received: (from dan@localhost)
	by dan.emsphone.com (8.13.1/8.13.4) id k394bUUK087722;
	Sat, 8 Apr 2006 23:37:30 -0500 (CDT) (envelope-from dan)
Date: Sat, 8 Apr 2006 23:37:29 -0500
From: Dan Nelson <dnelson@allantgroup.com>
To: Ashok Shrestha <ashok.shrestha@gmail.com>
Message-ID: <20060409043729.GD64658@dan.emsphone.com>
References: <79e2026f0604081616h2dab7552m38b7d53744c474db@mail.gmail.com>
	<79e2026f0604081944m79d1621cv1668266689fd5f3f@mail.gmail.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
In-Reply-To: <79e2026f0604081944m79d1621cv1668266689fd5f3f@mail.gmail.com>
X-OS: FreeBSD 5.5-PRERELEASE
X-message-flag: Outlook Error
User-Agent: Mutt/1.5.11
Cc: freebsd-hackers@freebsd.org, freebsd-perl@freebsd.org
Subject: Re: Net::FTPSSL error
X-BeenThere: freebsd-perl@freebsd.org
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: maintainer of a number of perl-related ports
	<freebsd-perl.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-perl>,
	<mailto:freebsd-perl-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/freebsd-perl>
List-Post: <mailto:freebsd-perl@freebsd.org>
List-Help: <mailto:freebsd-perl-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-perl>,
	<mailto:freebsd-perl-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Sun, 09 Apr 2006 04:37:31 -0000

In the last episode (Apr 08), Ashok Shrestha said:
> Adding freebsd-hackers@freebsd.org
> 
> On 4/8/06, Ashok Shrestha <ashok.shrestha@gmail.com> wrote:
> > I'm trying to use Net::FTPSSL to connect to an FTP server via SSL.
> > Here is the script:
> >
> > #!/usr/bin/perl -w
> >
> >   use Net::FTPSSL;
> >
> >   my $ftps = Net::FTPSSL->new('127.0.0.1',
> >                               'Encryption' => 'E',
> >                               'Debug' => 1,
> >                               'Timeout' => 20)
> >     or die "Can't open 127.0.0.1";
> >
> >   $ftps->login('username123', 'password123') or die "Can't login: ",
> > $ftps->$last_message();
> >
> >   $ftps->cwd("/working") or die "Can't change directory: ", $ftps->last_message;
> >
> >   $ftps->get("C13.txt") or die "Can't get file: ", $ftps->last_message;
> >
> >   $ftps->quit();
> >
> > Here is my error:
> > ./test_FTPSSL.pl
> > Name "main::last_message" used only once: possible typo at
> > ./test_FTPSSL.pl line 11.
> > >>> USER username123
> > <<< 331 Please specify the password.
> > >>> PASS password123
> > Use of uninitialized value in length at (eval 7) line 1.
> > Use of uninitialized value in string eq at blib/lib/Net/SSLeay.pm
> > (autosplit into blib/lib/auto/Net/S
> >
> > SLeay/ssl_read_all.al) line 1615.
> > Can't read on socket:  at ./test_FTPSSL.pl line 11

I don't know any perl, but why is your test script printing an error
message ("Can't read on socket") that's not in the source you pasted, and
does the warning "Name "main::last_message" used only once: possible typo at
./test_FTPSSL.pl line 11" have anything to do with it?

-- 
	Dan Nelson
	dnelson@allantgroup.com