[MacPerl] 'ambiguous' messages trying to use NET::Ftp

[R Waechter <r_waechter@ferkel.co.uk>]

Hi all,

This is what I'm doing:

...
use Net::FTP;
...
 	$ftp = Net::FTP->new($ftpSite);
 	$copyBack = $ftp->login($userName, $passWord);
 	if ($copyBack) { $copyBack = $ftp->cwd($ftp_digests); }
 	if ($copyBack) { $copyBack = $ftp->put($outf); }
 	if ($copyBack) { $copyBack = $ftp->quit; }

 	if (!($copyBack)) {	print "FTP FAILED\n"; }

Did I miss a step, or is this a known problem?

Note that the file does not complete, only about 32k of it gets ftp'd.

# Ambiguous use of {index} resolved to {"index"}.
File 'Macintosh HD:Applications:Mac_Perl 5.20r4:MacPerl
f:lib:Mac:InternetConfig.pm'; Line 501
# Ambiguous use of {index} resolved to {"index"}.
File 'Macintosh HD:Applications:Mac_Perl 5.20r4:MacPerl
f:lib:Mac:InternetConfig.pm'; Line 503
# Ambiguous use of {index} resolved to {"index"}.
File 'Macintosh HD:Applications:Mac_Perl 5.20r4:MacPerl
f:lib:Mac:InternetConfig.pm'; Line 509
# Use of uninitialized value.
File 'Macintosh HD:Applications:Mac_Perl 5.20r4:MacPerl
f:lib:Mac:Types.pm'; Line 68
# Use of uninitialized value.
File 'Macintosh HD:Applications:Mac_Perl 5.20r4:MacPerl
f:lib:Mac:Types.pm'; Line 56
# Use of uninitialized value.
File 'Macintosh HD:Applications:Mac_Perl 5.20r4:MacPerl
f:lib:Mac:Types.pm'; Line 56
:: Macintosh HD:Desktop Folder:Apps:w feist digests:FEISTFANS-L digest 1108

Net::FTP: Net::FTP(1.01)
Net::FTP:   Exporter
Net::FTP:   Net::Cmd(2.0801)
Net::FTP:   IO::Socket::INET
Net::FTP:     IO::Socket(1.1602)
Net::FTP:       IO::Handle(1.1504)

Net::FTP=GLOB(0x311d4f4)<<< 220 websrv4.netbenefit.co.uk FTP server
(Version wu-2.4.2-academ[BETA-12](6) Wed Sep 10 17:46:54 BST 1997) ready.
Net::FTP=GLOB(0x311d4f4)>>> user xxx

Net::FTP=GLOB(0x311d4f4)<<< 331 Password required for web9744.
Net::FTP=GLOB(0x311d4f4)>>> PASS ....
Net::FTP=GLOB(0x311d4f4)<<< 230 User xxx logged in.  Access restrictions apply.
Net::FTP=GLOB(0x311d4f4)>>> CWD /home/xxx/website/rip/digests/

Net::FTP=GLOB(0x311d4f4)<<< 250 CWD command successful.
Net::FTP=GLOB(0x311d4f4)>>> PORT 195,74,130,42,8,6

Net::FTP=GLOB(0x311d4f4)<<< 200 PORT command successful.
Net::FTP=GLOB(0x311d4f4)>>> STOR 1108.html

Net::FTP=GLOB(0x311d4f4)<<< 150 Opening ASCII mode data connection for
1108.html.
Net::FTP=GLOB(0x311d4f4)<<< 426 Data Connection: Connection reset by peer.
Net::FTP=GLOB(0x311d4f4)>>> QUIT

Net::FTP=GLOB(0x311d4f4)<<< 221 Goodbye.



***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch