e84e59a9a8
Remove unecessary top-level "tcllib" dir, port Makefile improvements, many patches now upstream. ok landry@, sebastiap@
50 lines
1.6 KiB
Plaintext
50 lines
1.6 KiB
Plaintext
$OpenBSD: patch-installer_tcl,v 1.2 2011/01/05 16:27:24 stu Exp $
|
|
--- installer.tcl.orig Mon Dec 7 09:56:53 2009
|
|
+++ installer.tcl Mon Oct 4 23:59:02 2010
|
|
@@ -79,21 +79,29 @@ if {![package vsatisfies [package provide Tcl] 8.0]} {
|
|
puts $index "unset maindir"
|
|
puts $index ""
|
|
close $index
|
|
+ file attributes [file join $outdir pkgIndex.tcl] -owner root -group bin -permissions 0444
|
|
return
|
|
}
|
|
|
|
proc xcopyfile {src dest} {
|
|
# dest can be dir or file
|
|
run file copy -force $src $dest
|
|
+ if {[file isdirectory $dest]} {
|
|
+ set dest [file join $dest [file tail $src]]
|
|
+ }
|
|
+ file attributes $dest -owner root -group bin -permissions 0444
|
|
return
|
|
}
|
|
|
|
proc xcopy {src dest recurse {pattern *}} {
|
|
run file mkdir $dest
|
|
|
|
+ file attributes $dest -owner root -group bin -permissions 0755
|
|
if {[string equal $pattern *] || !$recurse} {
|
|
foreach file [glob [file join $src $pattern]] {
|
|
+ if {[file extension $file] eq ".orig"} { continue }
|
|
set base [file tail $file]
|
|
+ if {$base eq "ChangeLog"} { continue }
|
|
set sub [file join $dest $base]
|
|
|
|
if {0 == [string compare CVS $base]} {continue}
|
|
@@ -144,6 +152,7 @@ proc write_out {f text} {
|
|
catch {file delete -force $f}
|
|
puts -nonewline [set of [open $f w]] $text
|
|
close $of
|
|
+ file attributes $f -owner root -group bin -permissions 0444
|
|
}
|
|
|
|
|
|
@@ -245,7 +254,6 @@ proc doinstall {} {
|
|
}
|
|
if {$config(pkg)} {
|
|
xinstall pkg $config(pkg,path)
|
|
- gen_main_index $config(pkg,path) $package_name $package_version
|
|
if {$config(doc,nroff)} {
|
|
xinstall doc nroff n $config(doc,nroff,path)
|
|
}
|