Ticket #449: patch-darwinports.tcl

File patch-darwinports.tcl, 623 bytes (added by fkr@…, 21 years ago)

suggested fix

Line 
1Index: src/darwinports1.0/darwinports.tcl
2===================================================================
3RCS file: /Volumes/src/cvs/od/proj/darwinports/base/src/darwinports1.0/darwinports.tcl,v
4retrieving revision 1.96
5diff -u -r1.96 darwinports.tcl
6--- src/darwinports1.0/darwinports.tcl  14 Aug 2003 02:11:04 -0000      1.96
7+++ src/darwinports1.0/darwinports.tcl  19 Aug 2003 15:31:10 -0000
8@@ -114,6 +114,7 @@
9         return -code error "$result"
10     }
11     while {[gets $fd line] >= 0} {
12+        set line [string trimright $line]
13         if {![regexp {[\ \t]*#.*|^$} $line]} {
14             lappend sources $line
15        }