aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorTuncer Ayaz <[email protected]>2010-02-22 10:28:00 +0000
committerErlang/OTP <[email protected]>2010-02-22 10:28:00 +0000
commite6122102507149e5f4418813c4b0b4f71ea40b2e (patch)
treeb89a4c194176fc210f9cfded24821ec78fefcf2c
parentcc86585f91df07c2d293e9501d456129f969af19 (diff)
downloadotp-e6122102507149e5f4418813c4b0b4f71ea40b2e.tar.gz
otp-e6122102507149e5f4418813c4b0b4f71ea40b2e.tar.bz2
otp-e6122102507149e5f4418813c4b0b4f71ea40b2e.zip
Fix escript:foldl/3 for beam and archive files
escript:foldl/3 was not completely adapted to the changes introduced in 6af2ac91005276add18b1c9bbf4c8fe4f8c6e040. A partial fix has already been applied by Hakan Mattson in 4ec4a06edb5baaa0af2840943230c4a0be3a93cf. Signed-off-by: Tuncer Ayaz <[email protected]>
-rw-r--r--lib/stdlib/src/escript.erl4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/stdlib/src/escript.erl b/lib/stdlib/src/escript.erl
index 05c42c24f0..5958a58d7c 100644
--- a/lib/stdlib/src/escript.erl
+++ b/lib/stdlib/src/escript.erl
@@ -80,7 +80,7 @@ foldl(Fun, Acc0, File) when is_function(Fun, 4) ->
throw:Reason ->
{error, Reason}
end;
- {beam, _, BeamBin, _Mode} when is_binary(BeamBin) ->
+ {beam, _, BeamBin, _HasRecs, _Mode} when is_binary(BeamBin) ->
GetInfo = fun() -> file:read_file_info(File) end,
GetBin = fun() -> BeamBin end,
try
@@ -89,7 +89,7 @@ foldl(Fun, Acc0, File) when is_function(Fun, 4) ->
throw:Reason ->
{error, Reason}
end;
- {archive, _, ArchiveBin, _Mode} when is_binary(ArchiveBin) ->
+ {archive, _, ArchiveBin, _HasRecs, _Mode} when is_binary(ArchiveBin) ->
ZipFun =
fun({Name, GetInfo, GetBin}, A) ->
A2 = Fun(Name, GetInfo, GetBin, A),