fixed prf:human bug

basho · Jan 11, 2011 · 8766db8 · 8766db8
1 parent 5a35bfa
commit 8766db8
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/src/prf.erl b/src/prf.erl
@@ -53,19 +53,20 @@ log(ProcInfo,List) ->
 
 %%make ints human readable
 human(X) when not is_number(X) -> X;
-human(I) when I =< 0 -> I;
-human(I) ->
+human(I) when I < 0 -> "-"++human(-I);
+human(I) when 0 < I ->
   case math:log10(I) of
     M when 15=<M -> human(M-15,"P");
     M when 12=<M -> human(M-12,"T");
     M when  9=<M -> human(M-9,"G");
     M when  6=<M -> human(M-6,"M");
     M when  3=<M -> human(M-3,"k");
     _            -> flat("~w",[I])
-  end.
+  end;
+human(_) -> "0".
 
 human(E,M) ->
   flat("~.1f~s",[math:pow(10,E),M]).
 
-flat(Format,Args) -> 
+flat(Format,Args) ->
   lists:flatten(io_lib:fwrite(Format,Args)).