← Back to branch summary

~rdoering/ubuntu/karmic/erlang/fix-535090

« back to all changes in this revision

Viewing changes to lib/stdlib/src/beam_lib.erl

  • Committer: Bazaar Package Importer
  • Author(s): Sergei Golovan
  • Date: 2009-02-15 16:42:52 UTC
  • mfrom: (3.1.2 squeeze)
  • Revision ID: james.westby@ubuntu.com-20090215164252-q5x4rcf8a5pbesb1
Tags: 1:12.b.5-dfsg-2
Upload to unstable after lenny is released.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/stdlib/src/beam_lib.erl
261
261
                {ok, Fd} ->
262
262
                    case file:write(Fd, Stripped) of
263
263
                        ok ->
264
 
                            file:close(Fd),
 
264
                            ok = file:close(Fd),
265
265
                            {ok, {Mod, FileName}};
266
266
                        Error ->
267
 
                            file:close(Fd),
 
267
                            ok = file:close(Fd),
268
268
                            file_error(FileName, Error)
269
269
                    end;
270
270
                Error ->
610
610
        {ok, Bin} ->
611
611
            read_all(Fd, FileName, [Bin | Bins]);
612
612
        eof ->
613
 
            file:close(Fd),
 
613
            ok = file:close(Fd),
614
614
            #bb{bin = uncompress(reverse(Bins)), source = FileName};
615
615
        Error ->
616
 
            file:close(Fd),
 
616
            ok = file:close(Fd),
617
617
            file_error(FileName, Error)
618
618
    end.
619
619