--- 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 $'
! !