aboutsummaryrefslogtreecommitdiffstats
path: root/lib/sasl/examples/src/target_system.erl
diff options
context:
space:
mode:
authorSiri Hansen <[email protected]>2011-11-28 10:47:54 +0100
committerSiri Hansen <[email protected]>2011-11-28 10:47:54 +0100
commit09c280951476aa6c30fd3aa54d99ddc6ced64ccf (patch)
tree75cda1f0b0fa5624657abeb320b56dbfcdc02bc1 /lib/sasl/examples/src/target_system.erl
parent2b36dd726551cf822041b065df5d753ed0dba8b1 (diff)
downloadotp-09c280951476aa6c30fd3aa54d99ddc6ced64ccf.tar.gz
otp-09c280951476aa6c30fd3aa54d99ddc6ced64ccf.tar.bz2
otp-09c280951476aa6c30fd3aa54d99ddc6ced64ccf.zip
Add copy of rel file in releases/<vsn> in release tar file
systool:make_tar stores the rel file in the releases directory. When unpacking with release_handler:unpack_release, the file is automatically moved to releases/<vsn>/. If, however, the tar file is unpacked manually, the rel file might not be moved, and the next release unpacked might overwrite the rel file. To overcome this, systools:make_tar now stores a copy of the rel file in releases/<vsn>/ directly and it is not longer necessary to move the file after unpacking. The reason for keeping the file in the releases directory also is that is needs to be extracted separately before the release version <vsn> is known.
Diffstat (limited to 'lib/sasl/examples/src/target_system.erl')
-rw-r--r--lib/sasl/examples/src/target_system.erl8
1 files changed, 5 insertions, 3 deletions
diff --git a/lib/sasl/examples/src/target_system.erl b/lib/sasl/examples/src/target_system.erl
index 0e1e0b2324..ffc0fcf443 100644
--- a/lib/sasl/examples/src/target_system.erl
+++ b/lib/sasl/examples/src/target_system.erl
@@ -16,6 +16,7 @@
%%
%% %CopyrightEnd%
%%
+%module
-module(target_system).
-export([create/1, create/2, install/2]).
@@ -130,14 +131,14 @@ install(RelFileName, RootDir) ->
[ErlVsn, _RelVsn| _] = string:tokens(StartErlData, " \n"),
ErtsBinDir = filename:join([RootDir, "erts-" ++ ErlVsn, "bin"]),
BinDir = filename:join([RootDir, "bin"]),
- io:fwrite("Substituting in erl.src, start.src and start_erl.src to\n"
+ io:fwrite("Substituting in erl.src, start.src and start_erl.src to "
"form erl, start and start_erl ...\n"),
subst_src_scripts(["erl", "start", "start_erl"], ErtsBinDir, BinDir,
[{"FINAL_ROOTDIR", RootDir}, {"EMU", "beam"}],
[preserve]),
io:fwrite("Creating the RELEASES file ...\n"),
- create_RELEASES(RootDir,
- filename:join([RootDir, "releases", RelFileName])).
+ create_RELEASES(RootDir, filename:join([RootDir, "releases",
+ filename:basename(RelFileName)])).
%% LOCALS
@@ -257,3 +258,4 @@ remove_all_files(Dir, Files) ->
file:delete(FilePath)
end
end, Files).
+%module