Lines Matching +full:perl +full:- +full:time +full:- +full:hires
21 # SPDX-License-Identifier: curl
46 # portable sleeping needs Time::HiRes
49 require Time::HiRes;
69 # portable_sleep uses Time::HiRes::sleep if available and falls back
72 # select on Windows: https://perldoc.perl.org/perlport.html#select
78 if($Time::HiRes::VERSION) {
79 Time::HiRes::sleep($seconds);
99 if(-f $pidfile && -s $pidfile && open(my $pidfh, "<", "$pidfile")) {
119 $pid -= 65536;
122 my $result = `tasklist -fi \"$filter\" 2>nul`;
123 if(index($result, "$pid") != -1) {
124 return -$pid;
148 $pid -= 65536;
151 my $result = `tasklist -fi \"$filter\" 2>nul`;
152 if(index($result, "$pid") != -1) {
153 system("taskkill -fi \"$filter\" >nul 2>&1");
173 $pid -= 65536;
176 my $result = `tasklist -fi \"$filter\" 2>nul`;
177 if(index($result, "$pid") != -1) {
178 system("taskkill -f -fi \"$filter\" >nul 2>&1");
239 return -$pid;
247 # with a SIGTERM signal and SIGKILLs those which haven't died on time.
259 # Make 'requested' hold the non-duplicate pids from 'pidlist'.
265 for(my $i = scalar(@requested) - 2; $i >= 0; $i--) {
297 while($twentieths--) {
298 for(my $i = scalar(@signalled) - 1; $i >= 0; $i--) {
358 printf("* kill pid for %s-%s => %d\n", $server,
363 unlink($pidfile) if(-f $pidfile);
372 printf("* kill pid for %s-data => %d\n", $server,
377 unlink($pidfile) if(-f $pidfile);
411 if(-f $filename) {