From 15b2c685b86b4952f200a91273c292145dac9baa Mon Sep 17 00:00:00 2001
From: Led <led@massivesolutions.co.uk>
Date: Wed, 25 Apr 2012 16:42:07 +0300
Subject: [PATCH] beam_lib: don't strip "Attr" chunk

---
 lib/stdlib/src/beam_lib.erl | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/lib/stdlib/src/beam_lib.erl b/lib/stdlib/src/beam_lib.erl
index fdfbb2e..549b9ba 100644
--- a/lib/stdlib/src/beam_lib.erl
+++ b/lib/stdlib/src/beam_lib.erl
@@ -395,7 +395,7 @@ strip_fils(Files) ->
 
 %% -> {ok, {Mod, FileName}} | {ok, {Mod, binary()}} | throw(Error)
 strip_file(File) ->
-    {ok, {Mod, Chunks}} = read_significant_chunks(File),
+    {ok, {Mod, Chunks}} = read_unstripped_chunks(File),
     {ok, Stripped0} = build_module(Chunks),
     Stripped = compress(Stripped0),
     case File of
@@ -452,6 +452,14 @@ read_all_but_useless_chunks(File0) when is_atom(File0);
 is_useless_chunk("CInf") -> true;
 is_useless_chunk(_) -> false.
 
+read_unstripped_chunks(File) ->
+    case read_chunk_data(File, unstripped_chunks(), [allow_missing_chunks]) of
+	{ok, {Module, Chunks0}} ->
+	    Mandatory = mandatory_chunks(),
+	    Chunks = filter_significant_chunks(Chunks0, Mandatory, File, Module),
+	    {ok, {Module, Chunks}}
+    end.
+
 %% -> {ok, {Module, Chunks}} | throw(Error)
 read_significant_chunks(File) ->
     case read_chunk_data(File, significant_chunks(), [allow_missing_chunks]) of
@@ -836,6 +844,9 @@ error(Reason) ->
     throw({error, ?MODULE, Reason}).
 
 
+unstripped_chunks() ->
+    significant_chunks() ++ ["Attr"].
+
 %% The following chunks are significant when calculating the MD5 for a module,
 %% and also the modules that must be retained when stripping a file.
 %% They are listed in the order that they should be MD5:ed.
-- 
1.7.11.4