commit 90d47b8788013aae88dd6ce2151816559981559c
from: Stefan Sperling <stsp@stsp.name>
via: Thomas Adam <thomas@xteddy.org>
date: Wed Sep 04 19:32:33 2024 UTC

apply a Perl idion tweak suggested by op@

commit - 0927012cb2e545e54ed80a5ac29d377e80813c73
commit + 90d47b8788013aae88dd6ce2151816559981559c
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);
 }