anchor.diff:          Error ->
               Error
       end.
  - 
  +
   versions2() ->
       case ms2() of
           {ok, Mods} ->
  
positive.code: %% 
  %% %CopyrightBegin%
  %% 
  %% Copyright Ericsson AB 1996-2016. All Rights Reserved.
  %% 
  %% Licensed under the Apache License, Version 2.0 (the "License");
  %% you may not use this file except in compliance with the License.
  
negative.code:         Error ->
              Error
      end.
  
  version_info(Mods) ->
      SysInfo = sys_info(),
      OsInfo  = os_info(),
      ModInfo = [mod_version_info(Mod) || Mod <- Mods],
      [{sys_info, SysInfo}, {os_info, OsInfo}, {mod_info, ModInfo}].
  
  mod_version_info(Mod) ->
      Info = Mod:module_info(),
      {Mod,
       case key1search(attributes, Info) of
  	 {value, Attr} ->
  	     case key1search(vsn, Attr) of
  		 {value, [Vsn]} ->
  		     [{vsn, Vsn}];
  		 not_found ->
  		     []
  	     end ++
  		 case key1search(app_vsn, Attr) of
  		     {value, AppVsn} ->
  			 [{app_vsn, AppVsn}];
  		     not_found ->
  			 []
  		 end;
  	 not_found ->
  	     []
       end ++
  	 case key1search(compile, Info) of
  	     {value, Comp} ->
  		 case key1search(version, Comp) of
  		     {value, Ver} ->
  			 [{compiler_version, Ver}];
  		     not_found ->
  			 []
  		 end ++
  		     case key1search(time, Comp) of
  			 {value, Ver} ->
  			     [{compile_time, Ver}];
  			 not_found ->
  			     []
  		     end;
  	     not_found ->
  		 []
  	 end ++
  	 case key1search(md5, Info) of
  	     {value, Bin} ->
  		 [{md5, Bin}];
  	     not_found ->
  		 []
  	 end}.
  
  sys_info() ->
      SysArch = string:strip(erlang:system_info(system_architecture),right,$\n),
  