i'm getting an error in an installed module, not in my script.
invalid top directory at /System/Library/Perl/5.8.1/File/Find.pm line 568.
script is as follows:
use File::Find;
use Net::FTP;
my $server = "blah";
my $login = "[EMAIL PROTECTED]";
my $pass = "blahblah";
my $ftp = Net::FTP->new($server) or die "Can't connect: [EMAIL PROTECTED]";
$ftp->login($login, $pass) or die "couldn't login\n";
my $dir = $ftp->pwd();
my @folders_to_get = $ftp->ls($dir);
sub get_mp3s {
if (-f) {
get($_);
}
}
find(\&get_mp3s, @folders_to_get);
(i know, this maybe unrelated) i have had something similar happen when i
installed coy. i tried
to run the test script and got the following:
Lingua::EN::Inflect::_PL_noun() called too early to check prototype at
/Library/Perl/5.8.1/Lingua/EN/Inflect.pm line 857.
Lingua::EN::Inflect::_PL_noun() called too early to check prototype at
/Library/Perl/5.8.1/Lingua/EN/Inflect.pm line 862.
Modification of a read-only value attempted at
/Library/Perl/5.8.1/Lingua/EN/Inflect.pm line 140.
Compilation failed in require at /Library/Perl/5.8.1/Coy.pm line 19.
BEGIN failed--compilation aborted at /Library/Perl/5.8.1/Coy.pm line 19.
Compilation failed in require at demo.pl line 3.
BEGIN failed--compilation aborted at demo.pl line 3.
these errors aren't happening in my script, but i'm guessing (at least in the
case of with
net::ftp) that maybe i'm feeding it the wrong info. whaddya think?
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
