Eskil

Check-in [742917b080]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fixed a bug in dirdiff filters.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 742917b0800bc69d743b92001412ee84690e5307
User & Date: peter 2007-03-01 04:01:33.000
Context
2007-04-02
06:08
Make ps print runnable check-in: 8bab80a0d2 user: peter tags: trunk
2007-03-01
04:01
Fixed a bug in dirdiff filters. check-in: 742917b080 user: peter tags: trunk
2007-02-24
21:05
Generate snapshot on release. check-in: f0a1453639 user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/dirdiff.tcl.
︙︙
260
261
262
263
264
265
266

267
268
269
270
271
272
273
274
275

            }
            set files $files2
        }
    }

    set files2 {}
    foreach file $files {

        # Apply filters
        if {[FileIsDirectory $file]} {
            if {$Pref(nodir)} continue
            if {[llength $Pref(dir,incdirs)] == 0} {
                set allowed 1
            } else {
                set allowed 0
                foreach pat $Pref(dir,incdirs) {
                    if {[string match $pat $file]} {








>

|








260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276

            }
            set files $files2
        }
    }

    set files2 {}
    foreach file $files {
        set full [file join $dir $file]
        # Apply filters
        if {[FileIsDirectory $full]} {
            if {$Pref(nodir)} continue
            if {[llength $Pref(dir,incdirs)] == 0} {
                set allowed 1
            } else {
                set allowed 0
                foreach pat $Pref(dir,incdirs) {
                    if {[string match $pat $file]} {
︙︙