File tree Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Original file line number Diff line number Diff line change 16
16
17
17
unit module Whateverable::Heartbeat ;
18
18
19
- # ↓ Tells the watchdog that we're still rolling.
19
+ # | Tells the watchdog that we're still rolling.
20
20
sub I'm-alive is export {
21
21
return if % * ENV <TESTABLE > or % * ENV <DEBUGGABLE >;
22
22
use NativeCall ;
@@ -25,13 +25,13 @@ sub I'm-alive is export {
25
25
sd_notify 0 , ‘ WATCHDOG=1’ ; # this may be called too often, see TODO below
26
26
}
27
27
28
- # ↓ Asks the test suite to delay the test failure (for 0.5s)
28
+ # | Asks the test suite to delay the test failure (for 0.5s)
29
29
sub test-delay is export {
30
30
use NativeCall ;
31
31
sub kill (int32 , int32 ) is native {* };
32
32
sub getppid (--> int32 ) is native {* };
33
33
my $ sig-compat = SIGUSR1;
34
- # ↓ Fragile platform-specific hack
34
+ # ↓ TODO Fragile platform-specific hack
35
35
$ sig-compat = 10 if $ * PERL . compiler. version ≤ v2018. 05;
36
36
kill getppid, + $ sig-compat ; # SIGUSR1
37
37
}
You can’t perform that action at this time.
0 commit comments