Can't locate Symbol.pm in @INC

N

Nex_s

Hi Everyone,

I have a FTP section to my code and am receiving an error when the
"put" portion (line 204) of the FTP process fails. I have a error sub
which is supposed to trap the error, move 2 files to the unsent_files
directory, send an e-mail, then restart (&logout sub) the entire script
but it fails. I made sure to pout Symbol.pm is located in each and
everyone of the directories listed in the error but I to no avail.
Here is what the FTP portion with the error sub looks like and the
error I recieve is below.

Any help would be greatly apprecited.
Chris

#------ FTP Section ----------------
sub FTP {

my $ftp = Net::FTP->new("123.456.78.910", Debug => 0)
or fatal( "Couldn't connect to remote FTP server - IP unavailable");

$ftp->login("user",'pass')
or fatal( "Couldn't connect to remote FTP server - failed username
or password");

$ftp->put("./sent_files/$datafile")
or fatal( "Couldn't put '$datafile'");

$ftp->put("./sent_files/$donefile")
or fatal( "Couldn't put '$donefile'");

$ftp->quit;

sub fatal {
system("mv", "./sent_files/$datafile", "./unsent_files");
system("mv", "./sent_files/$donefile", "./unsent_files");
my ($errmessage) = @_;
email($errmessage);
&logout;
}

}

#-----------------------------------


------- ERROR-----

Can't locate Symbol.pm in @INC (@INC contains:
/usr/perl5/5.00503/sun4-solaris /
usr/perl5/5.00503 /usr/perl5/site_perl/5.005/sun4-solaris
/usr/perl5/site_perl/5
..005 .) at /usr/perl5/5.00503/sun4-solaris/IO/Handle.pm line 204.
BEGIN failed--compilation aborted at
/usr/perl5/5.00503/sun4-solaris/IO/Handle.p
m line 204.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Members online

No members online now.

Forum statistics

Threads
473,982
Messages
2,570,185
Members
46,738
Latest member
JinaMacvit

Latest Threads

Top