diff options
| author | Hans Bolinder <[email protected]> | 2011-08-18 10:33:58 +0200 |
|---|---|---|
| committer | Hans Bolinder <[email protected]> | 2011-08-18 10:33:58 +0200 |
| commit | 338d144c10d575108b7913e2e1d1ee5664736ef7 (patch) | |
| tree | ab46431c9f35f038b4eb7db5bb1a64f925c73c75 /lib/stdlib/src/zip.erl | |
| parent | aeaf6c7dc59ccba8fda3e581bfa44dc718edad55 (diff) | |
| download | otp-338d144c10d575108b7913e2e1d1ee5664736ef7.tar.gz otp-338d144c10d575108b7913e2e1d1ee5664736ef7.tar.bz2 otp-338d144c10d575108b7913e2e1d1ee5664736ef7.zip | |
Fix a bug in zip:zip_open/1,2.
zip:zip_open/1,2 did not accept binary archives.
Also corrected the contracts of t/1 and tt/1.
Diffstat (limited to 'lib/stdlib/src/zip.erl')
| -rw-r--r-- | lib/stdlib/src/zip.erl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/stdlib/src/zip.erl b/lib/stdlib/src/zip.erl index 5a939dfa0a..c82c8159b6 100644 --- a/lib/stdlib/src/zip.erl +++ b/lib/stdlib/src/zip.erl @@ -223,7 +223,7 @@ openzip_open(F, Options) -> do_openzip_open(F, Options) -> Opts = get_openzip_options(Options), #openzip_opts{output = Output, open_opts = OpO, cwd = CWD} = Opts, - Input = get_zip_input(F), + Input = get_input(F), In0 = Input({open, F, OpO -- [write]}, []), {[#zip_comment{comment = C} | Files], In1} = get_central_dir(In0, fun raw_file_info_etc/5, Input), @@ -489,7 +489,7 @@ do_list_dir(F, Options) -> %% Print zip directory in short form -spec(t(Archive) -> ok when - Archive :: file:name() | binary | ZipHandle, + Archive :: file:name() | binary() | ZipHandle, ZipHandle :: pid()). t(F) when is_pid(F) -> zip_t(F); @@ -513,7 +513,7 @@ do_t(F, RawPrint) -> %% Print zip directory in long form (like ls -l) -spec(tt(Archive) -> ok when - Archive :: file:name() | binary | ZipHandle, + Archive :: file:name() | binary() | ZipHandle, ZipHandle :: pid()). tt(F) when is_pid(F) -> zip_tt(F); |