develooper Front page | perl.beginners | Postings from April 2012

Re: send email by /usr/bin/mail

Thread Previous
From:
Dr.Ruud
Date:
April 2, 2012 09:31
Subject:
Re: send email by /usr/bin/mail
Message ID:
20120402163116.5322.qmail@lists-nntp.develooper.com
On 2012-04-02 16:13, Samir Arishy wrote:

> eval { $sender->send($email) };
> die "Error sending email: $@" if $@;

Don't test $@, it is a global.

Make use of the return value of the eval:

     eval {
         $sender->send( $email );
         1;  # success
     }
     or do {  # failure
         my $eval_error = $@ || 'zombie error';
         die 'Error sending email: ', $eval_error;
     };


Or use Try::Tiny.

-- 
Greetings, Ruud

Thread Previous


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About