fixed default for reg/1 when item is a counter

git-svn-id: http://svn.ulf.wiger.net/gproc/branches/experimental-0906/gproc@38 f3948e33-8234-0410-8a80-a07eae3b6c4d

src/gproc.erl

@@ -75,6 +75,8 @@
          lookup_local_aggr_counter/1,
          lookup_global_aggr_counter/1]).
 
+-export([default/1]).
+
 %%% internal exports
 -export([init/1,
          handle_cast/2,
@@ -252,11 +254,16 @@ lookup_global_counters(P)   -> lookup_values({c,g,P}).
 %% @spec reg(Key::key()) -> true
 %%
 %% @doc
-%% @equiv reg(Key, undefined)
+%% @equiv reg(Key, default(Key))
 %% @end
+reg({T,_,_}=Key) when T==c; T==a ->
+    reg(Key, 0);
 reg(Key) ->
     reg(Key, undefined).
 
+default({T,_,_}=Key) when T==c; T==a -> 0;
+default(_) -> undefined.
+
 
 %% @spec reg(Key::key(), Value) -> true
 %%