FindFileApplication.st
changeset 13773 b4eb885ea9f0
parent 12778 b7c50fd7cd7a
child 13920 1929484021d8
--- 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 $'
 ! !