On Tue, Dec 03, 2019 at 09:56:58AM +0100, Benny Pedersen wrote:
> 
> # read an email from stdin, pass it into the verifier
> while (<STDIN>)
> {
>     # remove local line terminators
>     chomp;
>     s/\015$//;
> 
>     # use SMTP line terminators
>     $dkim->PRINT("$_\015\012");
> }

Anyway, that code is not identical to SA, which goes like this in 3.4:

my $msg = do { local $/; <STDIN> }; # Slurp
$msg =~ s/\012/\015\012/gs;
$dkim->PRINT($msg);

Your code would break with missing line terminator at message end I think.

Reply via email to