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),