Sisyphus wrote:
> Yes, I think you used eval() improperly. You probably wanted:
>
> eval {$msg->send};
> if (!$@) {
> print "message sent\n";
> }
> else {
> print "Failed to send: [EMAIL PROTECTED]";
> }
Further qualifying, I think his is the equivalent of doing :
my $ret;
eval { $ret = $msg->send; };
if ($ret) {
print "message sent\n";
} else {
print "Failed to send: [EMAIL PROTECTED]";
}
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
