From 7cca1066500448c2f061f0b1c9a2b04d185b1168 Mon Sep 17 00:00:00 2001 From: Tuncer Ayaz Date: Fri, 16 Apr 2010 19:03:36 +0200 Subject: code:clash/0: match correct return value from erl_prim_loader:list_dir/1 erl_prim_loader:list_dir/1 returns error on failure and not {error,_}. Also update tests in code_SUITE:clash/1. Defect was introduced with fix for listing .ez archives in 49da83de4b. Initial code:clash/0 tests added in 79194d5fa7. Signed-off-by: Tuncer Ayaz --- lib/kernel/src/code.erl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/kernel/src/code.erl') diff --git a/lib/kernel/src/code.erl b/lib/kernel/src/code.erl index ffe58ae7a9..db05c1d234 100644 --- a/lib/kernel/src/code.erl +++ b/lib/kernel/src/code.erl @@ -473,7 +473,7 @@ decorate([], _) -> []; decorate([File|Tail], Dir) -> [{Dir, File} | decorate(Tail, Dir)]. -filter(_Ext, Dir, {error,_}) -> +filter(_Ext, Dir, error) -> io:format("** Bad path can't read ~s~n", [Dir]), []; filter(Ext, _, {ok,Files}) -> filter2(Ext, length(Ext), Files). -- cgit v1.2.3