--- a/FindFileApplication.st Tue Jan 21 19:20:50 2014 +0100
+++ b/FindFileApplication.st Wed Jan 22 17:24:53 2014 +0100
@@ -1479,22 +1479,26 @@
contentsMatches := true.
(f exists and:[f isReadable]) ifFalse:[
resultList add: (('*** ' , f pathName , ' skipped - unreadable or bad symbolic link ***') colorizeAllWith:(Color red darkened)).
+ contentsMatches := false.
] ifTrue:[
hugeFile := f fileSize > (4024*1024).
bigFile := f fileSize > (512*1024).
hugeFile ifTrue:[
resultList add: (('*** ' , f pathName , ' skipped - too large ***') colorizeAllWith:(Color red darkened)).
+ contentsMatches := false.
] ifFalse:[
Stream lineTooLongErrorSignal handle:[:ex |
|cont|
"/ "/ this typically happens, when a binary file is read linewise ...
resultList add: (('*** ' , f pathName , ' skipped - binary/long line ***') colorizeAllWith:(Color red darkened)).
+ contentsMatches := false.
] do:[
bigFile ifTrue:[
Stream lineTooLongErrorSignal handle:[:ex |
resultList add: (('*** ' , f pathName , ' skipped - too large ***') colorizeAllWith:(Color red darkened)).
+ contentsMatches := false.
] do:[
contentsMatches := false.
(check == easyCheck
@@ -1844,10 +1848,10 @@
!FindFileApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.109 2013-05-28 10:34:29 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.110 2014-01-22 16:24:53 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.109 2013-05-28 10:34:29 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.110 2014-01-22 16:24:53 cg Exp $'
! !