Prefer use of require instead of eval
This commit is contained in:
parent
1f61b7a144
commit
cda080ce72
1 changed files with 4 additions and 4 deletions
|
@ -1460,7 +1460,7 @@ PS: Ce message est g
|
|||
Les roots ACU";
|
||||
|
||||
# create the message
|
||||
eval "use Email::Sender::Simple qw(sendmail); 1";
|
||||
require Email::Sender::Simple qw(sendmail);
|
||||
|
||||
my $mail = Email::MIME->create(
|
||||
header_str => [
|
||||
|
@ -1502,7 +1502,7 @@ Cordialement,
|
|||
Les roots ACU";
|
||||
|
||||
# create the message
|
||||
eval "use Email::Sender::Simple qw(sendmail); 1";
|
||||
require Email::Sender::Simple qw(sendmail);
|
||||
|
||||
my $mail = Email::MIME->create(
|
||||
header_str => [
|
||||
|
@ -1674,7 +1674,7 @@ PS: Ce message est g
|
|||
Les roots ACU";
|
||||
|
||||
# create the message
|
||||
eval "use Email::Sender::Simple qw(sendmail); 1";
|
||||
require Email::Sender::Simple qw(sendmail);
|
||||
|
||||
my $mail = Email::MIME->create(
|
||||
header_str => [
|
||||
|
@ -1739,7 +1739,7 @@ PS: Ce message est g
|
|||
--
|
||||
Les roots ACU";
|
||||
|
||||
eval "use Email::Sender::Simple qw(sendmail); 1";
|
||||
require Email::Sender::Simple qw(sendmail);
|
||||
|
||||
my $mail = Email::MIME->create(
|
||||
header_str => [
|
||||
|
|
Reference in a new issue