commit 7b720cf9c9925da29f85e309de7a4df7e2604c4e from: Stefan Sperling date: Mon Aug 19 16:50:50 2024 UTC apply a Perl idion tweak suggested by op@ commit - 7ddb9e12ddb8b4528b6db5c9105ad83adae17765 commit + 7b720cf9c9925da29f85e309de7a4df7e2604c4e blob - a332caed58809222d5e3fc8088715dbd55b25e34 blob + b6a52303bf93001152ffa036f3837d803c002d6a --- regress/gotd/http-server +++ regress/gotd/http-server @@ -88,7 +88,7 @@ while (<$out>) { die "no Content-Length header" unless defined $clen; if (defined $hmac_signature) { - die "no HMAC secret provided" if not (defined $hmac_secret); + die "no Hmac secret provided" unless defined $hmac_secret; my $sha256 = Digest->new("SHA-256"); $hmac = Digest::HMAC->new($hmac_secret, $sha256); }