sort processes by args/pid

diff --git a/lib/System/Introspector/Processes.pm b/lib/System/Introspector/Processes.pm
index 9fb0726..4344488 100644 (file)
--- a/lib/System/Introspector/Processes.pm
+++ b/lib/System/Introspector/Processes.pm
@@ -58,7 +58,11 @@ sub gather {
             @row{ @names } = @values;
             push @rows, \%row;
         }
-        return { processes => \@rows };
+        return { processes => [ sort {
+            ($a->{args} cmp $b->{args})
+            ||
+            ($a->{pid} <=> $b->{pid})
+        } @rows ] };
     };
 }