FindFileApplication.st
changeset 5729 752d89ffb83e
parent 5728 93ac88c7f87d
child 5730 6c04f3f1d04e
--- a/FindFileApplication.st	Tue Mar 16 01:51:16 2004 +0100
+++ b/FindFileApplication.st	Tue Mar 16 02:46:56 2004 +0100
@@ -1207,17 +1207,17 @@
                     ].
                     filesSize = fileSizeSearchFor ifTrue:[
                         fileSearchedFor ~= fn ifTrue:[
-                            filesMD5 := info at:2.
-                            filesMD5 isNil ifTrue:[
-                                filesMD5 := MD5Stream hashValueOfFile:fn asFilename.
-                                info at:2 put:filesMD5.
-                            ].
-                            filesMD5 = fileMD5SearchedFor ifTrue:[
-                                fn asFilename exists ifTrue:[
+                            fn asFilename exists ifFalse:[
+                                info at:1 put:nil.    
+                                info at:2 put:nil.    
+                            ] ifTrue:[
+                                filesMD5 := info at:2.
+                                filesMD5 isNil ifTrue:[
+                                    filesMD5 := MD5Stream hashValueOfFile:fn asFilename.
+                                    info at:2 put:filesMD5.
+                                ].
+                                filesMD5 = fileMD5SearchedFor ifTrue:[
                                     list add:fn.
-                                ] ifFalse:[
-                                    info at:1 put:nil.    
-                                    info at:2 put:nil.    
                                 ]
                             ]
                         ]
@@ -1352,5 +1352,5 @@
 !FindFileApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.29 2004-03-16 00:51:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.30 2004-03-16 01:46:56 cg Exp $'
 ! !