romenskiy2012/curl
1
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2026-07-31 03:28:03 +03:00
Code Issues Projects Releases Packages Wiki Activity

cleanups-2

Browse source
This commit is contained in:
Viktor Szakats 2025-08-29 14:43:11 +02:00
parent 7010f450e8
commit be61f129c1
No known key found for this signature in database
GPG key ID: B5ABD165E2AEF201
3 changed files with 2 additions and 52 deletions
Download patch file Download diff file Expand all files Collapse all files

2
.github/workflows/windows.yml vendored
View file

@ -462,7 +462,7 @@ jobs:
popd
popd
fi
perl tests/wintest.pl
perl -I tests -e 'use processhelp qw($has_win32_process); print "! Win32::Process* loaded: " . ($has_win32_process ? "YES" : "NO") . "\n";'
- name: 'run tests'
if: ${{ matrix.tflags != 'skipall' && matrix.tflags != 'skiprun' }}

1
tests/processhelp.pm
View file

@ -48,6 +48,7 @@ BEGIN {
killallsockfilters
set_advisor_read_lock
clear_advisor_read_lock
$has_win32_process
);
if(os_is_win() && $^O ne 'MSWin32') {

51
tests/wintest.pl
View file

@ -1,51 +0,0 @@
#!/usr/bin/env perl
#***************************************************************************
# _ _ ____ _
# Project ___| | | | _ \| |
# / __| | | | |_) | |
# | (__| |_| | _ <| |___
# \___|\___/|_| \_\_____|
#
# Copyright (C) Daniel Stenberg, <daniel@haxx.se>, et al.
#
# This software is licensed as described in the file COPYING, which
# you should have received as part of this distribution. The terms
# are also available at https://curl.se/docs/copyright.html.
#
# You may opt to use, copy, modify, merge, publish, distribute and/or sell
# copies of the Software, and permit persons to whom the Software is
# furnished to do so, under the terms of the COPYING file.
#
# This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
# KIND, either express or implied.
#
# SPDX-License-Identifier: curl
#
###########################################################################
use strict;
use warnings;
use Time::HiRes;
my $has_win32_process;
BEGIN {
if($^O eq 'cygwin' || $^O eq 'msys') {
$has_win32_process = eval {
no warnings "all";
# https://metacpan.org/pod/Win32::Process
require Win32::Process;
# https://metacpan.org/pod/Win32::Process::List
require Win32::Process::List;
};
} else {
$has_win32_process = 0;
}
}
if($has_win32_process) {
print "!!! Win32::Process* modules loaded\n";
} else {
print "!!! Win32::Process* modules NOT loaded\n";
}