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

debug-1

Browse source
This commit is contained in:
Viktor Szakats 2025-08-29 11:26:49 +02:00
parent c99c9dafda
commit 0f06862835
No known key found for this signature in database
GPG key ID: B5ABD165E2AEF201
2 changed files with 59 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -438,7 +438,9 @@ jobs:
if: ${{ matrix.tflags != 'skipall' && matrix.tflags != 'skiprun' }}
timeout-minutes: 5
run: &perl-win32-pkgs-install |
echo '-------------------'
if [ -d /c/perl-win32-pkgs ]; then
echo "!!! perl-win32-pkgs directory detected"
cd /c/perl-win32-pkgs
cd Win32-Process-0.17
install -D blib/arch/auto/Win32/Process/Process.dll /usr/lib/perl5/site_perl/auto/Win32/Process/Process.dll
@ -451,7 +453,13 @@ jobs:
install -D blib/lib/Win32/Process/processes.pl /usr/lib/perl5/site_perl/Win32/Process/processes.pl
cd ..
cd ..
else
echo "!!! perl-win32-pkgs directory NOT detected"
fi
echo '-------------------'
perl --version
perl tests/wintest.pl
echo '-------------------'
- name: 'install test prereqs'
if: ${{ matrix.tflags != 'skipall' && matrix.tflags != 'skiprun' }}

51
tests/wintest.pl Executable file
View file

@ -0,0 +1,51 @@
#!/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";
}