epita-std/ACU
Archived
1
0
Fork 0
Code Releases Activity

Prefer use of require instead of eval

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-10-30 02:46:17 +01:00
parent 1f61b7a144
commit cda080ce72
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
utils/lpt
View file

@ -1460,7 +1460,7 @@ PS: Ce message est g
Les roots ACU"; Les roots ACU";
# create the message # create the message
eval "use Email::Sender::Simple qw(sendmail); 1"; require Email::Sender::Simple qw(sendmail);
my $mail = Email::MIME->create( my $mail = Email::MIME->create(
header_str => [ header_str => [
@ -1502,7 +1502,7 @@ Cordialement,
Les roots ACU"; Les roots ACU";
# create the message # create the message
eval "use Email::Sender::Simple qw(sendmail); 1"; require Email::Sender::Simple qw(sendmail);
my $mail = Email::MIME->create( my $mail = Email::MIME->create(
header_str => [ header_str => [
@ -1674,7 +1674,7 @@ PS: Ce message est g
Les roots ACU"; Les roots ACU";
# create the message # create the message
eval "use Email::Sender::Simple qw(sendmail); 1"; require Email::Sender::Simple qw(sendmail);
my $mail = Email::MIME->create( my $mail = Email::MIME->create(
header_str => [ header_str => [
@ -1739,7 +1739,7 @@ PS: Ce message est g
-- --
Les roots ACU"; Les roots ACU";
eval "use Email::Sender::Simple qw(sendmail); 1"; require Email::Sender::Simple qw(sendmail);
my $mail = Email::MIME->create( my $mail = Email::MIME->create(
header_str => [ header_str => [