Tcl Library Source Code
Check-in [e889e36583]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.

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

Overview
Comment:Fix installer breaking on empty doc directories of excluded packages.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:e889e365838aff7208ac98b578e833be70789cb6
User & Date: andreask 2014-01-10 00:03:52
Context
2014-01-18
12:13
Add a procedure for estimating probability density functions by means of the kernel density estimation method check-in: bfc68668cd user: markus tags: trunk
2014-01-10
00:03
Fix installer breaking on empty doc directories of excluded packages. check-in: e889e36583 user: andreask tags: trunk
2014-01-08
18:21
Commit [c7f07ac148] forgot to update the package index, causing a mismatch. Fixed, likewise the Tcl requirement. check-in: 32ee5178ac user: andreask tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to installer.tcl.

88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
...
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
    return
}

proc xcopy {src dest recurse {pattern *}} {
    run file mkdir $dest

    if {[string equal $pattern *] || !$recurse} {
	foreach file [glob [file join $src $pattern]] {
	    set base [file tail $file]
	    set sub  [file join $dest $base]

	    if {0 == [string compare CVS $base]} {continue}

	    if {[file isdirectory $file]} then {
		if {$recurse} {
................................................................................
		    }
		}
	    } else {
		xcopyfile $file $sub
	    }
	}
    } else {
	foreach file [glob [file join $src *]] {
	    set base [file tail $file]
	    set sub  [file join $dest $base]

	    if {[string equal CVS $base]} {continue}

	    if {[file isdirectory $file]} then {
		if {$recurse} {







|







 







|







88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
...
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
    return
}

proc xcopy {src dest recurse {pattern *}} {
    run file mkdir $dest

    if {[string equal $pattern *] || !$recurse} {
	foreach file [glob -nocomplain [file join $src $pattern]] {
	    set base [file tail $file]
	    set sub  [file join $dest $base]

	    if {0 == [string compare CVS $base]} {continue}

	    if {[file isdirectory $file]} then {
		if {$recurse} {
................................................................................
		    }
		}
	    } else {
		xcopyfile $file $sub
	    }
	}
    } else {
	foreach file [glob -nocomplain [file join $src *]] {
	    set base [file tail $file]
	    set sub  [file join $dest $base]

	    if {[string equal CVS $base]} {continue}

	    if {[file isdirectory $file]} then {
		if {$recurse} {