aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorIngela Anderton Andin <[email protected]>2012-08-22 16:00:32 +0200
committerIngela Anderton Andin <[email protected]>2012-08-22 16:00:32 +0200
commit730c9f161cc0db41b555211ed2ded79d1f81a093 (patch)
treeb0a8786c61de2ae0e4c9a6030191ad0a47cafbba
parent064b42237d891d5fdcb6c1a351980b8291437618 (diff)
downloadotp-730c9f161cc0db41b555211ed2ded79d1f81a093.tar.gz
otp-730c9f161cc0db41b555211ed2ded79d1f81a093.tar.bz2
otp-730c9f161cc0db41b555211ed2ded79d1f81a093.zip
odbc: remove "-" in hostname from generated unique table name
-rw-r--r--lib/odbc/test/odbc_test_lib.erl3
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/odbc/test/odbc_test_lib.erl b/lib/odbc/test/odbc_test_lib.erl
index a8439d5fb6..e814cd2aca 100644
--- a/lib/odbc/test/odbc_test_lib.erl
+++ b/lib/odbc/test/odbc_test_lib.erl
@@ -1,7 +1,7 @@
%%
%% %CopyrightBegin%
%%
-%% Copyright Ericsson AB 2002-2011. All Rights Reserved.
+%% Copyright Ericsson AB 2002-2012. All Rights Reserved.
%%
%% The contents of this file are subject to the Erlang Public License,
%% Version 1.1, (the "License"); you may not use this file except in
@@ -29,6 +29,7 @@
unique_table_name() ->
lists:reverse(lists:foldl(fun($@, Acc) -> [$t, $A |Acc] ;
+ ($-,Acc) -> Acc;
(X, Acc) -> [X |Acc] end,
[], atom_to_list(node()))).