diff options
author | dakkar <dakkar@thenautilus.net> | 2017-01-02 16:01:18 +0000 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2017-01-02 16:01:18 +0000 |
commit | 0b314daba74fd3460ac25861489feff88efdcd62 (patch) | |
tree | 6e9d67a8f42def1eeb3b8e76fb1d34700e3f6c8b /lib | |
parent | stricter type for tag names (diff) | |
download | Sietima-0b314daba74fd3460ac25861489feff88efdcd62.tar.gz Sietima-0b314daba74fd3460ac25861489feff88efdcd62.tar.bz2 Sietima-0b314daba74fd3460ac25861489feff88efdcd62.zip |
let's not worry about bad input
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Sietima.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/Sietima.pm b/lib/Sietima.pm index e0de623..7fdfcf5 100644 --- a/lib/Sietima.pm +++ b/lib/Sietima.pm @@ -51,6 +51,8 @@ sub _build_transport { Email::Sender::Simple->default_transport } sub handle_mail_from_stdin($self,@) { my $mail_text = do { local $/; <> }; + # we're hoping that, since we probably got called from an MTA/MDA, + # STDIN contains a well-formed email message, addressed to us my $incoming_mail = Email::MIME->new(\$mail_text); return $self->handle_mail($incoming_mail); } |