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

log

Browse source
This commit is contained in:
Viktor Szakats 2025-08-16 21:18:42 +02:00
parent cc25f85533
commit 13f2140434
No known key found for this signature in database
GPG key ID: B5ABD165E2AEF201
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
tests/processhelp.pm
View file

@ -128,11 +128,15 @@ sub pidexists {
if($pid > 4194304 && os_is_win()) {
$pid -= 4194304;
if($^O ne 'MSWin32') {
print "\n>>>pidexists|$has_win32_process|\n";
if($has_win32_process) {
print ">>>pidexists Win32\n";
my %processes = Win32::Process::List->new()->GetProcesses();
if(exists $processes{$pid}) {
print ">>>pidexists Win32 -> YES\n";
return -$pid;
}
print ">>>pidexists Win32 -> NO\n";
} else {
my $filter = "PID eq $pid";
# https://ss64.com/nt/tasklist.html
@ -166,7 +170,9 @@ sub pidterm {
if($pid > 4194304 && os_is_win()) {
$pid -= 4194304;
if($^O ne 'MSWin32') {
print "\n>>>pidterm|$has_win32_process|\n";
if($has_win32_process) {
print "\n>>>pidterm Win32\n";
Win32::Process::KillProcess($pid, 0);
} else {
# https://ss64.com/nt/taskkill.html
@ -195,7 +201,9 @@ sub pidkill {
if($pid > 4194304 && os_is_win()) {
$pid -= 4194304;
if($^O ne 'MSWin32') {
print "\n>>>pidkill|$has_win32_process|\n";
if($has_win32_process) {
print "\n>>>pidkill Win32\n";
Win32::Process::KillProcess($pid, 0);
} else {
# https://ss64.com/nt/taskkill.html