jungerl/lib/distel/src distel.erl,1.7,1.8

[mats c. <ma...@us...>]

Update of /cvsroot/jungerl/jungerl/lib/distel/src
In directory sc8-pr-cvs6.sourceforge.net:/tmp/cvs-serv19933/lib/distel/src

Modified Files:
	distel.erl 
Log Message:
added erl-find-mod (find named erlang mfa)


Index: distel.erl
===================================================================
RCS file: /cvsroot/jungerl/jungerl/lib/distel/src/distel.erl,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- distel.erl	4 Oct 2006 13:44:50 -0000	1.7
+++ distel.erl	4 Jan 2007 11:40:55 -0000	1.8
@@ -73,15 +73,17 @@
 
 %% ----------------------------------------------------------------------
 %%% reload all modules that are out of date
-%%% we check the compile time of the loaded beam and the beam on disk
+%%% compare the compile time of the loaded beam and the beam on disk
 reload_modules() ->
     T = fun(L) -> [X || X <- L, element(1,X)==time] end,
     Tm = fun(M) -> T(M:module_info(compile)) end,
     Tf = fun(F) -> {ok,{_,[{_,I}]}}=beam_lib:chunks(F,[compile_info]),T(I) end,
     Load = fun(M) -> c:l(M),M end,
     
-    [Load(M) || {M,F} <- code:all_loaded(), is_list(F), Tm(M)<Tf(F)].
+    [Load(M) || {M,F} <- code:all_loaded(), is_file(F), Tm(M)<Tf(F)].
 
+is_file(F) -> ok == element(1,file:read_file_info(F)).
+    
 %% ----------------------------------------------------------------------
 %% if c:l(Mod) doesn't work, we look for the beam file in 
 %% srcdir and srcdir/../ebin; add the first one that works to path and