diff --git a/source/APLProcess.dyalog b/source/APLProcess.dyalog index d1714e6..0cf2a57 100644 --- a/source/APLProcess.dyalog +++ b/source/APLProcess.dyalog @@ -5,7 +5,7 @@ ∇ r←Version :Access Public Shared - r←'APLProcess' '2.3.0' '2024-07-06' + r←'APLProcess' '2.3.1' '2025-09-09' ∇ :Field Public Args←'' @@ -453,8 +453,12 @@ :If {2::0 ⋄ IsSsh}'' ⍝ instance? ∘∘∘ :Else - →(r←' '∨.≠txt←⊃_SH'ps -o comm -p ',(⍕pid),' | sed -n ''2,$p''')↓0 - r←~∨/''⍷txt + :If IsAIX + txt←⊃_SH'ps -p "',(⍕pid),'" -o s=' + :Else + txt←⊃_SH'ps -p "',(⍕pid),'" -o state=' + :EndIf + r←(~'Z'∊txt)∧(∨/txt≠' ')∧0<≢txt :EndIf ∇