----- Original Message -----
From: "Bullock, Howard A."
.
.
> I tried to trap this issue in my code using "eval", but was
> unsuccessful.
>
> if (eval {$msg->send}) {
> print "message sent\n";
> }
> else {
> print "Failed to send: [EMAIL PROTECTED]";
> }
>
> Did I use the eval improperly or is there a better to prevent the
> stopping of my process?
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]";
}
Cheers,
Rob
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
