diff options
| author | Gustav Simonsson <[email protected]> | 2012-01-18 12:02:43 +0100 |
|---|---|---|
| committer | Gustav Simonsson <[email protected]> | 2012-01-18 12:02:43 +0100 |
| commit | c421687d485ecf7433b472eb4c7093625a48b23b (patch) | |
| tree | f776102cdcbdfca6738ceaa33f442c86ba85e777 /lib/sasl/src/release_handler.erl | |
| parent | f8815dc88bd86d6508d2a3dad031ea939fb2b443 (diff) | |
| download | otp-c421687d485ecf7433b472eb4c7093625a48b23b.tar.gz otp-c421687d485ecf7433b472eb4c7093625a48b23b.tar.bz2 otp-c421687d485ecf7433b472eb4c7093625a48b23b.zip | |
Fix so remove_release can remove symlinks
remove_file in release_handler would fail silently and leave directories
in inconsistent states if there was symlinks in a release directory
also added a test, otp_9864 to test change
Diffstat (limited to 'lib/sasl/src/release_handler.erl')
| -rw-r--r-- | lib/sasl/src/release_handler.erl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/sasl/src/release_handler.erl b/lib/sasl/src/release_handler.erl index 522c7b496b..8d2b9c35d3 100644 --- a/lib/sasl/src/release_handler.erl +++ b/lib/sasl/src/release_handler.erl @@ -1572,7 +1572,7 @@ memlib(_Lib, []) -> false. %% recursively remove file or directory remove_file(File) -> - case file:read_file_info(File) of + case file:read_link_info(File) of {ok, Info} when Info#file_info.type==directory -> case file:list_dir(File) of {ok, Files} -> |