romenskiy2012/curl
1
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2026-06-13 16:45:36 +03:00
Code Issues Projects Releases Packages Wiki Activity

s3

Browse source
This commit is contained in:
Viktor Szakats 2026-06-13 00:35:09 +02:00
parent 1ff63dde7d
commit f58547735c
No known key found for this signature in database
5 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

2
scripts/mdlinkcheck
View file

@ -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) = @_;

2
scripts/mk-ca-bundle.pl
View file

@ -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!";

2
scripts/randdisable
View file

@ -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-[^ ]*)/) {

4
scripts/release-notes.pl
View file

@ -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]

4
tests/servers.pm
View file

@ -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();