From 6e4f32ff969b274cb64a5ef0a2fd8aeca5f7310e Mon Sep 17 00:00:00 2001
From: Marek Majkowski <majek@lshift.net>
Date: Mon, 14 Sep 2009 15:29:27 +0100
Subject: fixed R12 incompatibility in gen_server2

---
 src/gen_server2.erl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/gen_server2.erl b/src/gen_server2.erl
index 36fb4fa8..47ae545b 100644
--- a/src/gen_server2.erl
+++ b/src/gen_server2.erl
@@ -437,7 +437,10 @@ unregister_name({local,Name}) ->
 unregister_name({global,Name}) ->
     _ = global:unregister_name(Name);
 unregister_name(Pid) when is_pid(Pid) ->
-    Pid.
+    Pid;
+% Under R12 let's just ignore it, as we have a single term as Name.
+% On R13 it will never get here, as we get tuple with 'local/global' atom.
+unregister_name(Name) -> ok.
 
 extend_backoff(undefined) ->
     undefined;
-- 
cgit v1.2.1