Tcl Library Source Code

Check-in [e889e36583]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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 Side-by-Side Diffs Ignore Whitespace Patch

Changes to installer.tcl.

    88     88       return
    89     89   }
    90     90   
    91     91   proc xcopy {src dest recurse {pattern *}} {
    92     92       run file mkdir $dest
    93     93   
    94     94       if {[string equal $pattern *] || !$recurse} {
    95         -	foreach file [glob [file join $src $pattern]] {
           95  +	foreach file [glob -nocomplain [file join $src $pattern]] {
    96     96   	    set base [file tail $file]
    97     97   	    set sub  [file join $dest $base]
    98     98   
    99     99   	    if {0 == [string compare CVS $base]} {continue}
   100    100   
   101    101   	    if {[file isdirectory $file]} then {
   102    102   		if {$recurse} {
................................................................................
   109    109   		    }
   110    110   		}
   111    111   	    } else {
   112    112   		xcopyfile $file $sub
   113    113   	    }
   114    114   	}
   115    115       } else {
   116         -	foreach file [glob [file join $src *]] {
          116  +	foreach file [glob -nocomplain [file join $src *]] {
   117    117   	    set base [file tail $file]
   118    118   	    set sub  [file join $dest $base]
   119    119   
   120    120   	    if {[string equal CVS $base]} {continue}
   121    121   
   122    122   	    if {[file isdirectory $file]} then {
   123    123   		if {$recurse} {