diff options
| author | Ingela Anderton Andin <[email protected]> | 2012-08-23 11:54:50 +0200 |
|---|---|---|
| committer | Ingela Anderton Andin <[email protected]> | 2012-08-23 11:54:50 +0200 |
| commit | db5288a7ee4a60aff143f65b90a2bebcbe1bf15d (patch) | |
| tree | 02c3cf19bf6eec2827ee50316d713fadfe09f527 /lib | |
| parent | 976e84e1390feaaaf94a906ca77c4c6c9a3c8c95 (diff) | |
| parent | 730c9f161cc0db41b555211ed2ded79d1f81a093 (diff) | |
| download | otp-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')
| -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()))). |