Mailing-List: contact cygwin-help AT sourceware DOT cygnus DOT com; run by ezmlm
List-Subscribe: <mailto:cygwin-subscribe AT sources DOT redhat DOT com>
List-Archive: <http://sources.redhat.com/ml/cygwin/>
List-Post: <mailto:cygwin AT sources DOT redhat DOT com>
List-Help: <mailto:cygwin-help AT sources DOT redhat DOT com>, <http://sources.redhat.com/ml/#faqs>
Sender: cygwin-owner AT sources DOT redhat DOT com
Delivered-To: mailing list cygwin AT sources DOT redhat DOT com
Message-ID: <3B860623.10806@isl.vtu.lt>
Date: Fri, 24 Aug 2001 09:45:39 +0200
From: SaGu <sagu AT isl DOT vtu DOT lt>
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.0; en-US; rv:0.9.3+) Gecko/20010815
X-Accept-Language: lt, en-us
MIME-Version: 1.0
To: cygwin AT cygwin DOT com
Subject: Still Perl problems
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit
X-AntiVirus: scanned for viruses by AMaViS 0.2.1 (http://amavis.org/)

Hello,
  I'm using the latest cygwin 1.3.2 on Windows2000Pro SP2:

$ uname -a
CYGWIN_NT-5.0 C8T 1.3.2(0.39/3/2) 2001-05-20 23:28 i686 unknown
$ perl -v

This is perl, v5.6.1 built for cygwin-multi

Copyright 1987-2001, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using `man perl' or `perldoc perl'.  If you have access to the
Internet, point your browser at http://www.perl.com/, the Perl Home Page.


There is a simple perl script:

use Net::FTP;
$ftp = Net::FTP->new("ftp.netscape.com",Debug => 9);
$ftp->login("ftp",'ftp AT ftp');
$ftp->cwd("/");
$ftp->quit;


If I try to execute the script in bash prompt I get :

$ perl ftptest.pl
Can't call method "login" on an undefined value at ftptest.pl line 3.

But if from bash prompt I run "rxvt" and try to run from there everything works just fine:

$ perl ftppushtest.pl

Net::FTP: Net::FTP(2.58)
Net::FTP:   Exporter(5.562)
Net::FTP:   Net::Cmd(2.19)
Net::FTP:   IO::Socket::INET(1.25)
Net::FTP:     IO::Socket(1.26)
Net::FTP:       IO::Handle(1.21)

Net::FTP=GLOB(0xa18d190)<<< 220 ftp24c.newaol.com FTP server (SunOS 5.7) ready.
Net::FTP=GLOB(0xa18d190)>>> user ftp
Net::FTP=GLOB(0xa18d190)<<< 331 Guest login ok, send your complete e-mail address as password.
Net::FTP=GLOB(0xa18d190)>>> PASS ....
Net::FTP=GLOB(0xa18d190)<<< 230-The response `ftp AT ftp' is not valid.
Net::FTP=GLOB(0xa18d190)<<< 230-Next time please use your e-mail address as password.
Net::FTP=GLOB(0xa18d190)<<< 230 Guest login ok, access restrictions apply.
Net::FTP=GLOB(0xa18d190)>>> CWD /
Net::FTP=GLOB(0xa18d190)<<< 250 CWD command successful.
Net::FTP=GLOB(0xa18d190)>>> QUIT
Net::FTP=GLOB(0xa18d190)<<< 221 Goodbye.

What is wrong ? Can anybody help me solve this problem?



Regards,

Saulius Gurklys






--
Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple
Bug reporting:         http://cygwin.com/bugs.html
Documentation:         http://cygwin.com/docs.html
FAQ:                   http://cygwin.com/faq/