File 2101-Remove-remnants-of-module-package-support.... of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 2101-Remove-remnants-of-module-package-support.patch of Package erlang (Revision 8472c7d584127ce43bf6581cad2d1d57)

Currently displaying revision 8472c7d584127ce43bf6581cad2d1d57 , Show latest

From 65c4401c1cd1094da5d8f35137532a22054a8517 Mon Sep 17 00:00:00 2001
From: Richard Carlsson <richardc@klarna.com>
Date: Mon, 21 Nov 2016 15:31:16 +0100
Subject: [PATCH 1/7] Remove remnants of module package support

---
 lib/kernel/src/code.erl | 27 +++++++++------------------
 1 file changed, 9 insertions(+), 18 deletions(-)

diff --git a/lib/kernel/src/code.erl b/lib/kernel/src/code.erl
index 622b270..1b149bb 100644
--- a/lib/kernel/src/code.erl
+++ b/lib/kernel/src/code.erl
@@ -719,37 +719,28 @@ start_get_mode() ->
 which(Module) when is_atom(Module) ->
     case is_loaded(Module) of
 	false ->
-	    which2(Module);
+            File = atom_to_list(Module) ++ objfile_extension(),
+            which(File, get_path());
 	{file, File} ->
 	    File
     end.
 
-which2(Module) ->
-    Base = atom_to_list(Module),
-    File = filename:basename(Base) ++ objfile_extension(),
-    Path = get_path(),
-    which(File, filename:dirname(Base), Path).
-
--spec which(file:filename(), file:filename(), [file:filename()]) ->
+-spec which(file:filename(), [file:filename()]) ->
         'non_existing' | file:filename().
 
-which(_, _, []) ->
+which(_, []) ->
     non_existing;
-which(File, Base, [Directory|Tail]) ->
-    Path = if
-	       Base =:= "." -> Directory;
-	       true -> filename:join(Directory, Base)
-	   end,
+which(File, [Path|Tail]) ->
     case erl_prim_loader:list_dir(Path) of
 	{ok,Files} ->
 	    case lists:member(File,Files) of
 		true ->
 		    filename:append(Path, File);
 		false ->
-		    which(File, Base, Tail)
+		    which(File, Tail)
 	    end;
 	_Error ->
-	    which(File, Base, Tail)
+	    which(File, Tail)
     end.
 
 %% Search the code path for a specific file. Try to locate
@@ -760,13 +751,13 @@ which(File, Base, [Directory|Tail]) ->
       Absname :: file:filename().
 where_is_file(File) when is_list(File) ->
     Path = get_path(),
-    which(File, ".", Path).
+    which(File, Path).
 
 -spec where_is_file(Path :: file:filename(), Filename :: file:filename()) ->
         file:filename() | 'non_existing'.
 
 where_is_file(Path, File) when is_list(Path), is_list(File) ->
-    which(File, ".", Path).
+    which(File, Path).
 
 -spec set_primary_archive(ArchiveFile :: file:filename(),
 			  ArchiveBin :: binary(),
-- 
2.10.2

Places

File 2101-Remove-remnants-of-module-package-support.patch of Package erlang (Revision 8472c7d584127ce43bf6581cad2d1d57)

Places