My problem seems to be within the Net::FTP module. I have intentionally
modified my password so that my error routines can be tested, but once
the
login
piece fails it continues on, when I would expect that it should die at
the
code in red.
Cool, its all blue in my mail client so there must be no problem :)
Without trying to sort out the hair ball of code might I recommend
simplifying you condition?
my $ftp = Net::FTP->new(...) or _my_die('Connection failed: ' .
Net:FTP->message());
$ftp->login($user, $pass) or _my_die('Login failed: ' . $ftp->message());
_my_warn('foo is bar') if $foo eq $bar;
sub _my_croak {
my ($msg) = @_;
# put $msg in a file, db, email, whatever
croak $msg;
}
sub _my_carp {
my ($msg) = @_;
# put $msg in a file, db, email, whatever
carp $msg;
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
