Changeset 160 for trunk/tcl

Timestamp:

Jan 30, 2006, 1:48:22 PM (19 years ago)

Author:

mmc

Message:

Fixed the install.tcl script to include the lib/library.xml file.
This was accidentally removed during the last commit.

File:

• trunk/tcl/install.tcl (modified) (1 diff)

trunk/tcl/install.tcl

@@ -69 +69 @@
 }
 
+catch {file mkdir [file join $targetdir lib]}
+foreach file [find ../lib] {
+    set target [file join $targetdir $file]
+    if {[file isdirectory $file]} {
+        puts "making directory $target..."
+        catch {file mkdir $target}
+        fixperms $target ugo+rx
+    } else {
+        puts "installing $target..."
+        file copy -force $file $target
+        fixperms $target ugo+r
+    }
+}
+
 set fid [open [file join $targetdir pkgIndex.tcl] w]
 puts $fid "# Tcl package index file"