From 5576be6a5a874dbeb2b12014b5834542756e72b3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn-Egil=20Dahlberg?= <egil@erlang.org>
Date: Thu, 11 Jul 2013 12:59:40 +0200
Subject: Fix system_information get_beam_name/0

os:getenv("EMU") is not set for windows, use "beam" instead.
---
 lib/runtime_tools/src/system_information.erl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/runtime_tools/src/system_information.erl b/lib/runtime_tools/src/system_information.erl
index 5c6516f72f..b0f03126b9 100644
--- a/lib/runtime_tools/src/system_information.erl
+++ b/lib/runtime_tools/src/system_information.erl
@@ -472,4 +472,8 @@ get_beam_name() ->
 	false -> "";
 	true -> ".smp"
     end,
-    os:getenv("EMU") ++ Type ++ Flavor.
+    Beam = case os:getenv("EMU") of
+	false -> "beam";
+	Value -> Value
+    end,
+    Beam ++ Type ++ Flavor.
-- 
cgit v1.2.3