[PATCH] seaside: Correct WAGNUSmalltalkPlatform >> #filesIn:
Holger Hans Peter Freyther <[email protected]>
| Newsgroups | gmane.comp.lang.smalltalk.gnu.general |
|---|---|
| Message-ID | <[email protected]> |
File does not understand first. Follow the comment and reject any file that starts with '.' by first stripping the path and converting it to a String. Manually tested using interactive GST session on '/Users/ich'. The issue was reported by Mark Bratcher on github. 2015-08-08 Holger Hans Peter Freyther <[email protected]> * Seaside-GST.st: Correct >>#filesIn:. --- packages/seaside/core/ChangeLog | 4 ++++ packages/seaside/core/Seaside-GST.st | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/packages/seaside/core/ChangeLog b/packages/seaside/core/ChangeLog index aef4adb..b4d1774 100644 --- a/packages/seaside/core/ChangeLog +++ b/packages/seaside/core/ChangeLog @@ -1,3 +1,7 @@ +2015-08-08 Holger Hans Peter Freyther <[email protected]> + + * Seaside-GST.st: Correct >>#filesIn:. + 2014-07-26 Holger Hans Peter Freyther <[email protected]> * Seaside-Core.st: Remove WABrush class >> #new, diff --git a/packages/seaside/core/Seaside-GST.st b/packages/seaside/core/Seaside-GST.st index a2f5c79..ab41acf 100644 --- a/packages/seaside/core/Seaside-GST.st +++ b/packages/seaside/core/Seaside-GST.st @@ -550,7 +550,7 @@ Object subclass: WAGNUSmalltalkPlatform [ | directory | directory := File name: aPathString. ^(directory files - reject: [ :each | each first = $. ]) + reject: [ :each | each stripPath first = $. ]) collect: [ :each | each asString ] ] -- 2.3.5