File otp_src_21.1-compile_info-time.patch of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File otp_src_21.1-compile_info-time.patch of Package erlang

diff -Ndurp otp_src_21.1/lib/inets/src/inets_app/inets.erl otp_src_21.1-compile_info-time/lib/inets/src/inets_app/inets.erl
--- otp_src_21.1/lib/inets/src/inets_app/inets.erl	2018-09-24 12:32:43.000000000 +0300
+++ otp_src_21.1-compile_info-time/lib/inets/src/inets_app/inets.erl	2018-09-25 23:02:45.879724533 +0300
@@ -260,13 +260,13 @@ mod_version_info(Mod) ->
     {value, {attributes, Attr}}   = lists:keysearch(attributes, 1, Info),
     {value, {vsn,        [Vsn]}}  = lists:keysearch(vsn,        1, Attr),
     {value, {app_vsn,    AppVsn}} = lists:keysearch(app_vsn,    1, Attr),
-    {value, {compile,    Comp}}   = lists:keysearch(compile,    1, Info),
-    {value, {version,    Ver}}    = lists:keysearch(version,    1, Comp),
-    {value, {time,       Time}}   = lists:keysearch(time,       1, Comp),
-    {Mod, [{vsn,              Vsn},
-           {app_vsn,          AppVsn},
-           {compiler_version, Ver},
-           {compile_time,     Time}]}.
+    CVer = case lists:keysearch(compile, 1, Info) of
+               {value, {compile, [_|_] = Comp}} ->
+                   {value, {version, Ver}} = lists:keysearch(version, 1, Comp),
+                   [{compiler_version, Ver}];
+               _ -> []
+           end,
+    {Mod, [{vsn, Vsn}, {app_vsn, AppVsn} | CVer]}.
 
 sys_info() ->
     SysArch = string:strip(erlang:system_info(system_architecture),right,$\n),
diff -Ndurp otp_src_21.1/lib/megaco/src/app/megaco.erl otp_src_21.1-compile_info-time/lib/megaco/src/app/megaco.erl
--- otp_src_21.1/lib/megaco/src/app/megaco.erl	2018-09-24 12:32:43.000000000 +0300
+++ otp_src_21.1-compile_info-time/lib/megaco/src/app/megaco.erl	2018-09-25 23:02:45.883724435 +0300
@@ -672,13 +672,13 @@ mod_version_info(Mod) ->
     {value, {attributes, Attr}}   = lists:keysearch(attributes, 1, Info),
     {value, {vsn,        [Vsn]}}  = lists:keysearch(vsn,        1, Attr),
     {value, {app_vsn,    AppVsn}} = lists:keysearch(app_vsn,    1, Attr),
-    {value, {compile,    Comp}}   = lists:keysearch(compile,    1, Info),
-    {value, {version,    Ver}}    = lists:keysearch(version,    1, Comp),
-    {value, {time,       Time}}   = lists:keysearch(time,       1, Comp),
-    {Mod, [{vsn,              Vsn}, 
-	   {app_vsn,          AppVsn}, 
-	   {compiler_version, Ver}, 
-	   {compile_time,     Time}]}.
+    CVer = case lists:keysearch(compile, 1, Info) of
+               {value, {compile, [_|_] = Comp}} ->
+                   {value, {version, Ver}} = lists:keysearch(version, 1, Comp),
+                   [{compiler_version, Ver}];
+               _ -> []
+           end,
+    {Mod, [{vsn, Vsn}, {app_vsn, AppVsn} | CVer]}.
 
 sys_info() ->
     SysArch = string:strip(erlang:system_info(system_architecture),right,$\n),

Places

File otp_src_21.1-compile_info-time.patch of Package erlang

Places