From: Viktor Szakats <commit@vsz.me>
Date: Wed, 30 Jul 2025 12:11:05 +0000 (+0200)
Subject: tests: fix perl warnings in http2-server, http3-server
X-Git-Tag: curl-8_16_0~314
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1140c8bc047ff847f8f5f0105802f2c265c3426f;p=thirdparty%2Fcurl.git

tests: fix perl warnings in http2-server, http3-server

AM libressl heimdal:
```
Global symbol "$verbose" requires explicit package name (did you forget to declare "my $verbose"?) at tests/http2-server.pl line 52.
Global symbol "$certfile" requires explicit package name (did you forget to declare "my $certfile"?) at tests/http2-server.pl line 109.
Global symbol "$keyfile" requires explicit package name (did you forget to declare "my $keyfile"?) at tests/http2-server.pl line 110.
Execution of tests/http2-server.pl aborted due to compilation errors.
[...]
```
Ref: https://github.com/curl/curl/actions/runs/16622030370/job/47028537336?pr=18099#step:39:3148

Follow-up to 2ec54556d4e3f3ab551b5298adab0c703d85a463 #17877

Closes #18100
---

diff --git a/tests/http2-server.pl b/tests/http2-server.pl
index 1a36a8b1f6..73dbf62e40 100755
--- a/tests/http2-server.pl
+++ b/tests/http2-server.pl
@@ -33,6 +33,7 @@ use Cwd 'abs_path';
 use File::Basename;
 use File::Spec;
 
+my $verbose = 0;     # set to 1 for debugging
 my $logdir = "log";
 my $pidfile = "$logdir/nghttpx.pid";
 my $logfile = "$logdir/http2.log";
@@ -106,8 +107,8 @@ while(@ARGV) {
     shift @ARGV;
 }
 
-$certfile = abs_path("certs/$cert.pem");
-$keyfile = abs_path("certs/$cert.key");
+my $certfile = abs_path("certs/$cert.pem");
+my $keyfile = abs_path("certs/$cert.key");
 
 my $cmdline="$nghttpx --backend=$connect ".
     "--backend-keep-alive-timeout=500ms ".
diff --git a/tests/http3-server.pl b/tests/http3-server.pl
index 6b3de3d748..b7f9dd3009 100755
--- a/tests/http3-server.pl
+++ b/tests/http3-server.pl
@@ -34,6 +34,7 @@ use Cwd 'abs_path';
 use File::Basename;
 use File::Spec;
 
+my $verbose = 0;     # set to 1 for debugging
 my $logdir = "log";
 my $pidfile = "$logdir/nghttpx.pid";
 my $logfile = "$logdir/http3.log";
@@ -106,8 +107,8 @@ while(@ARGV) {
     shift @ARGV;
 }
 
-$certfile = abs_path("certs/$cert.pem");
-$keyfile = abs_path("certs/$cert.key");
+my $certfile = abs_path("certs/$cert.pem");
+my $keyfile = abs_path("certs/$cert.key");
 
 my $cmdline="$nghttpx --http2-proxy --backend=$connect ".
     "--backend-keep-alive-timeout=500ms ".