From f58547735c8fce8a4fafc4755f3bea5d569b6d89 Mon Sep 17 00:00:00 2001
From: Viktor Szakats <commit@vsz.me>
Date: Sat, 13 Jun 2026 00:35:09 +0200
Subject: [PATCH] s3

---
 scripts/mdlinkcheck      | 2 +-
 scripts/mk-ca-bundle.pl  | 2 +-
 scripts/randdisable      | 2 +-
 scripts/release-notes.pl | 4 ++--
 tests/servers.pm         | 4 ++--
 5 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/scripts/mdlinkcheck b/scripts/mdlinkcheck
index 1910bd670e..37a9bd393f 100755
--- a/scripts/mdlinkcheck
+++ b/scripts/mdlinkcheck
@@ -90,7 +90,7 @@ if(defined $ARGV[0] && $ARGV[0] eq "--dry-run") {
 }
 
 # list all files to scan for links
-my @files = `git ls-files docs include lib scripts src`;
+my @files = qx(git ls-files docs include lib scripts src);
 
 sub storelink {
     my ($f, $line, $link) = @_;
diff --git a/scripts/mk-ca-bundle.pl b/scripts/mk-ca-bundle.pl
index 6ef5d55e83..189b1ebaab 100755
--- a/scripts/mk-ca-bundle.pl
+++ b/scripts/mk-ca-bundle.pl
@@ -309,7 +309,7 @@ if(!$opt_n) {
 
     # If we have an HTTPS URL then use curl
     if($url =~ /^https:\/\//i) {
-        my $curl = `curl -V`;
+        my $curl = qx(curl -V);
         if($curl) {
             if($curl =~ /^Protocols:.* https( |$)/m) {
                 report "Get certdata with curl!";
diff --git a/scripts/randdisable b/scripts/randdisable
index a59c6c8125..f91a2ac3b2 100755
--- a/scripts/randdisable
+++ b/scripts/randdisable
@@ -28,7 +28,7 @@ use List::Util qw/shuffle/;
 my @disable;
 
 sub getoptions {
-    my @all = `./configure --help`;
+    my @all = qx(./configure --help);
     for my $o (@all) {
         chomp $o;
         if($o =~ /(--disable-[^ ]*)/) {
diff --git a/scripts/release-notes.pl b/scripts/release-notes.pl
index 0a7cdf371b..c26c5037e8 100755
--- a/scripts/release-notes.pl
+++ b/scripts/release-notes.pl
@@ -58,8 +58,8 @@ use strict;
 use warnings;
 
 my $cleanup = (@ARGV && $ARGV[0] eq "cleanup");
-my @gitlog = `git log @^{/RELEASE-NOTES:.synced}..` if(!$cleanup);
-my @releasenotes = `cat RELEASE-NOTES`;
+my @gitlog = qx(git log @^{/RELEASE-NOTES:.synced}..) if(!$cleanup);
+my @releasenotes = qx(cat RELEASE-NOTES);
 
 my @o; # the entire new RELEASE-NOTES
 my @refused; # [num] = [2 bits of use info]
diff --git a/tests/servers.pm b/tests/servers.pm
index 166050758e..454931aeb0 100644
--- a/tests/servers.pm
+++ b/tests/servers.pm
@@ -206,11 +206,11 @@ sub initserverconfig {
         $USER = $ENV{LOGNAME};  # Some Unix (I think)
     }
     if(!$USER) {
-        $USER = `whoami`;
+        $USER = qx(whoami);
         chomp $USER;
     }
     if(!$USER) {
-        $USER = `id -un`;
+        $USER = qx(id -un);
         chomp $USER;
     }
     init_serverpidfile_hash();