aboutsummaryrefslogtreecommitdiffstats
path: root/lib/odbc
diff options
context:
space:
mode:
authorIngela Anderton Andin <[email protected]>2012-08-23 11:54:50 +0200
committerIngela Anderton Andin <[email protected]>2012-08-23 11:54:50 +0200
commitdb5288a7ee4a60aff143f65b90a2bebcbe1bf15d (patch)
tree02c3cf19bf6eec2827ee50316d713fadfe09f527 /lib/odbc
parent976e84e1390feaaaf94a906ca77c4c6c9a3c8c95 (diff)
parent730c9f161cc0db41b555211ed2ded79d1f81a093 (diff)
downloadotp-db5288a7ee4a60aff143f65b90a2bebcbe1bf15d.tar.gz
otp-db5288a7ee4a60aff143f65b90a2bebcbe1bf15d.tar.bz2
otp-db5288a7ee4a60aff143f65b90a2bebcbe1bf15d.zip
Merge branch 'ia/odbc/test-suite-maint' into maint
* ia/odbc/test-suite-maint: odbc: remove "-" in hostname from generated unique table name
Diffstat (limited to 'lib/odbc')
-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()))).