Email is escaped

diff --git a/PciIds/Email.pm b/PciIds/Email.pm
index ff252d5bc67629e5b62b9cd3bf2e52f195e8277b..67578860ef9612b19ad9aa19c6d639ddf5d27575 100644 (file)
--- a/PciIds/Email.pm
+++ b/PciIds/Email.pm
@@ -35,7 +35,7 @@ sub sendMail( $$$ ) {
        ( $error, $to ) = emailCheck( $to, undef );
        die "Invalid email in database $to\n" if defined $error;
        $body =~ s/^\.$/../gm;
-       open SENDMAIL, "|$sendmail -f$from $to" or die 'Can not send mail';
+       open SENDMAIL, "|$sendmail -f'$from' '$to'" or die 'Can not send mail';
        print SENDMAIL "From: $from\n".
                "To: $to\n".
                "Subject: $subject\n".