[PATCH cygport] Fix variable expansion in error message of embedded SMTP perl script

[Christian Franke via Cygwin-apps]

Harmless bug ...

--
Regards,
Christian


From b1074f4cfe549c852be7fa59d85d312c9579cf0d Mon Sep 17 00:00:00 2001
From: Christian Franke <christian.fra...@t-online.de>
Date: Fri, 23 Feb 2024 13:04:21 +0100
Subject: [PATCH] Fix variable expansion in error message of embedded SMTP perl
 script

---
 lib/pkg_upload.cygpart | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/pkg_upload.cygpart b/lib/pkg_upload.cygpart
index dcae8e2c..cdeae283 100644
--- a/lib/pkg_upload.cygpart
+++ b/lib/pkg_upload.cygpart
@@ -222,7 +222,7 @@ if (\$smtp_encryption eq 'tls') {
        require Net::SMTP::SSL;
        \$smtp->command('STARTTLS');
        \$smtp->response();
-       \$smtp->code == 220 or die "$server does not support STARTTLS";
+       \$smtp->code == 220 or die "\$smtp_server does not support STARTTLS";
        \$smtp = Net::SMTP::SSL->start_SSL(\$smtp) or die "STARTTLS failed";
        \$smtp->hello(\$smtp_server);
 }
-- 
2.43.0