diff options
| author | Siri Hansen <[email protected]> | 2014-04-22 15:26:44 +0200 |
|---|---|---|
| committer | Siri Hansen <[email protected]> | 2014-04-22 15:26:44 +0200 |
| commit | 53ec5bcc10a71e792f5a64491302d84faec4e30c (patch) | |
| tree | 402439a243baa2c4a9a5ff9e4c029ad8e3466949 /lib/test_server/src/test_server_node.erl | |
| parent | 5ce2b6588eb2a237e757265a83de28d997a13c3d (diff) | |
| download | otp-53ec5bcc10a71e792f5a64491302d84faec4e30c.tar.gz otp-53ec5bcc10a71e792f5a64491302d84faec4e30c.tar.bz2 otp-53ec5bcc10a71e792f5a64491302d84faec4e30c.zip | |
Minor update to test_server for finding old releases
This is valid internal in OTP test environment only
Links starting with 'otp_beam_linux_' are removed.
Diffstat (limited to 'lib/test_server/src/test_server_node.erl')
| -rw-r--r-- | lib/test_server/src/test_server_node.erl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/test_server/src/test_server_node.erl b/lib/test_server/src/test_server_node.erl index 582abb2153..acd47788db 100644 --- a/lib/test_server/src/test_server_node.erl +++ b/lib/test_server/src/test_server_node.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2002-2013. All Rights Reserved. +%% Copyright Ericsson AB 2002-2014. 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 @@ -653,7 +653,7 @@ find_rel_linux(Rel) -> end. find_rel_suse(Rel, SuseRel) -> - Root = "/usr/local/otp/releases/otp_beam_linux_sles", + Root = "/usr/local/otp/releases/sles", case SuseRel of "11" -> %% Try both SuSE 11, SuSE 10 and SuSe 9 in that order. @@ -673,10 +673,10 @@ find_rel_suse(Rel, SuseRel) -> find_rel_suse_1(Rel, RootWc) -> case erlang:system_info(wordsize) of 4 -> - find_rel_suse_2(Rel, RootWc++"_i386"); + find_rel_suse_2(Rel, RootWc++"_32"); 8 -> - find_rel_suse_2(Rel, RootWc++"_x64") ++ - find_rel_suse_2(Rel, RootWc++"_i386") + find_rel_suse_2(Rel, RootWc++"_64") ++ + find_rel_suse_2(Rel, RootWc++"_32") end. find_rel_suse_2(Rel, RootWc) -> |