diff options
| author | Ingela Anderton Andin <[email protected]> | 2012-08-22 16:00:32 +0200 |
|---|---|---|
| committer | Ingela Anderton Andin <[email protected]> | 2012-08-22 16:00:32 +0200 |
| commit | 730c9f161cc0db41b555211ed2ded79d1f81a093 (patch) | |
| tree | b0a8786c61de2ae0e4c9a6030191ad0a47cafbba /lib/odbc/test/odbc_test_lib.erl | |
| parent | 064b42237d891d5fdcb6c1a351980b8291437618 (diff) | |
| download | otp-730c9f161cc0db41b555211ed2ded79d1f81a093.tar.gz otp-730c9f161cc0db41b555211ed2ded79d1f81a093.tar.bz2 otp-730c9f161cc0db41b555211ed2ded79d1f81a093.zip | |
odbc: remove "-" in hostname from generated unique table name
Diffstat (limited to 'lib/odbc/test/odbc_test_lib.erl')
| -rw-r--r-- | lib/odbc/test/odbc_test_lib.erl | 3 |
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()))). |