File 0803-systools_make-add-new-args-to-check_args.patch of Package erlang

From bc24dc9e1c75f2b8a82236bbec3dd46f69d8e6e5 Mon Sep 17 00:00:00 2001
From: Tristan Sloughter <t@crashfast.com>
Date: Thu, 17 Oct 2019 14:32:58 -0600
Subject: [PATCH 3/5] systools_make: add new args to check_args

---
 lib/sasl/src/systools_make.erl   | 6 ++++++
 lib/sasl/test/systools_SUITE.erl | 2 +-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/lib/sasl/src/systools_make.erl b/lib/sasl/src/systools_make.erl
index 5a4e4b84c1..cc1d930e06 100644
--- a/lib/sasl/src/systools_make.erl
+++ b/lib/sasl/src/systools_make.erl
@@ -2210,6 +2210,9 @@ cas([no_module_tests | Args], X) ->
     cas(Args, X);
 cas([no_dot_erlang | Args], X) ->
     cas(Args, X);
+%% set the name of the script and boot file to create
+cas([{script_name, Name} | Args], X) when is_list(Name) ->
+    cas(Args, X);
 
 %%% ERROR --------------------------------------------------------------
 cas([Y | Args], X) ->
@@ -2290,6 +2293,9 @@ cat([no_warn_sasl | Args], X) ->
 %%% no_module_tests (kept for backwards compatibility, but ignored) ----
 cat([no_module_tests | Args], X) ->
     cat(Args, X);
+cat([{extra_files, ExtraFiles} | Args], X) when is_list(ExtraFiles) ->
+    cat(Args, X);
+
 %%% ERROR --------------------------------------------------------------
 cat([Y | Args], X) ->
     cat(Args, X++[Y]).
diff --git a/lib/sasl/test/systools_SUITE.erl b/lib/sasl/test/systools_SUITE.erl
index 4e89fbb42a..521fd7521d 100644
--- a/lib/sasl/test/systools_SUITE.erl
+++ b/lib/sasl/test/systools_SUITE.erl
@@ -1018,7 +1018,7 @@ additional_files_tar(Config) ->
     %% random file should not be in this tarball
     {error, _} = check_tar(fname(["releases","LATEST",RandomFile]), LatestName),
 
-    RandomFilePathInTar = filename:join("releases", "LATEST", RandomFile),
+    RandomFilePathInTar = filename:join(["releases", "LATEST", RandomFile]),
     {ok, _, []} = systools:make_tar(LatestName,
                                     [{path, P}, silent,
                                      {extra_files, [{RandomFile, RandomFilePathInTar}]}]),
-- 
2.16.4