diff --git a/.github/workflows/windows.yml b/.github/workflows/windows.yml index 8e5b4ec6d2..0a159eb923 100644 --- a/.github/workflows/windows.yml +++ b/.github/workflows/windows.yml @@ -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' }} diff --git a/tests/wintest.pl b/tests/wintest.pl new file mode 100755 index 0000000000..68d5451745 --- /dev/null +++ b/tests/wintest.pl @@ -0,0 +1,51 @@ +#!/usr/bin/env perl +#*************************************************************************** +# _ _ ____ _ +# Project ___| | | | _ \| | +# / __| | | | |_) | | +# | (__| |_| | _ <| |___ +# \___|\___/|_| \_\_____| +# +# Copyright (C) Daniel Stenberg, , 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"; +}