anchor.diff:                              
   
   analyze_and_print_linux_host_info(Version) ->
  -    Distro = linux_which_distro(Version),
  +    {Distro, Label} = linux_which_distro(Version),
  +    %% 'VirtFactor' will be 0 unless virtual
  +    VirtFactor = linux_virt_factor(),
       Factor =
           case (catch linux_which_cpuinfo(Distro)) of
               {ok, {CPU, BogoMIPS}} ->
  
positive.code:         [M] ->
              M;
          _ ->
              "-"
      end.
  
  linux_cpuinfo_platform() ->
  
negative.code:             _ ->
                  5
          end,
      AddLabelFactor = label2factor(Label),
      %% Check if we need to adjust the factor because of the memory
      AddMemFactor = try linux_which_meminfo()
                     catch _:_:_ -> 0
                     end,
      TSScaleFactor = case timetrap_scale_factor() of
                          N when is_integer(N) andalso (N > 0) ->
                              N - 1;
                          _ ->
                              0
                      end,
      io:format("Factor calc:"
                "~n      Base Factor:     ~w"
                "~n      Label Factor:    ~w"
                "~n      Mem Factor:      ~w"
                "~n      Virtual Factor:  ~w"
                "~n      TS Scale Factor: ~w"
                "~n", [Factor, AddLabelFactor, AddMemFactor, VirtFactor,
                       TSScaleFactor]),
      {Factor + AddLabelFactor + AddMemFactor + VirtFactor + TSScaleFactor,
       [{label, Label}]}.
  
  
  linux_virt_factor() ->
      linux_virt_factor(linux_product_name()).
  
  linux_virt_factor("VMware" ++ _) ->
      2;
  linux_virt_factor("VirtualBox" ++ _) ->
      4;
  linux_virt_factor(_) ->
      0.
  
  
  linux_cpuinfo_lookup(Key) when is_list(Key) ->
      linux_info_lookup(Key, "/proc/cpuinfo").
  
  linux_cpuinfo_bogomips() ->
      case linux_cpuinfo_bogomips("bogomips") of
          "-" ->
              linux_cpuinfo_bogomips("BogoMIPS");
          Res ->
              Res
      end.
  
  linux_cpuinfo_bogomips(Key) ->
      case linux_cpuinfo_lookup(Key) of
          [] ->
              "-";
          BMips when is_list(BMips) ->
  