Make installer work with FAKE_AS_ROOT=no.
This commit is contained in:
parent
c118880300
commit
016ecf35f5
@ -1,4 +1,4 @@
|
||||
$OpenBSD: patch-installer_tcl,v 1.3 2013/11/14 09:43:09 stu Exp $
|
||||
$OpenBSD: patch-installer_tcl,v 1.4 2014/09/10 23:10:04 stu Exp $
|
||||
|
||||
Install everything nicely.
|
||||
Generate tcllib.n.
|
||||
@ -14,7 +14,7 @@ Generate tcllib.n.
|
||||
+ }
|
||||
+ log "Installing $src to $dest"
|
||||
run file copy -force $src $dest
|
||||
+ file attributes $dest -owner root -group bin -permissions 0o444
|
||||
+ file attributes $dest -permissions 0o444
|
||||
return
|
||||
}
|
||||
|
||||
@ -22,7 +22,7 @@ Generate tcllib.n.
|
||||
+ log "Making directory $dest"
|
||||
run file mkdir $dest
|
||||
|
||||
+ file attributes $dest -owner root -group bin -permissions 0o755
|
||||
+ file attributes $dest -permissions 0o755
|
||||
if {[string equal $pattern *] || !$recurse} {
|
||||
foreach file [glob [file join $src $pattern]] {
|
||||
set base [file tail $file]
|
||||
@ -34,7 +34,7 @@ Generate tcllib.n.
|
||||
catch {file delete -force $f}
|
||||
puts -nonewline [set of [open $f w]] $text
|
||||
close $of
|
||||
+ file attributes $f -owner root -group bin -permissions 0o444
|
||||
+ file attributes $f -permissions 0o444
|
||||
}
|
||||
|
||||
|
||||
@ -58,7 +58,7 @@ Generate tcllib.n.
|
||||
+ if {![file exists $config(app,path)]} {
|
||||
+ log "Making directory $config(app,path)"
|
||||
+ run file mkdir $config(app,path)
|
||||
+ file attributes $config(app,path) -owner root -group bin -permissions 0o755
|
||||
+ file attributes $config(app,path) -permissions 0o755
|
||||
}
|
||||
+ _exafile $aexe $adst $config(tclsh)
|
||||
+ if {[file exists $aexe.man]} {
|
||||
@ -147,7 +147,7 @@ Generate tcllib.n.
|
||||
+ set f [open $fn w]
|
||||
+ puts -nonewline $f [[::doctools::new mp -format nroff] format $mp]
|
||||
+ close $f
|
||||
+ file attributes $fn -owner root -group bin -permissions 0o444
|
||||
+ file attributes $fn -permissions 0o444
|
||||
}
|
||||
|
||||
# --------------------------------------------------------------
|
||||
|
@ -1,4 +1,4 @@
|
||||
$OpenBSD: patch-support_installation_actions_tcl,v 1.1 2013/11/14 09:43:09 stu Exp $
|
||||
$OpenBSD: patch-support_installation_actions_tcl,v 1.2 2014/09/10 23:10:04 stu Exp $
|
||||
|
||||
Retrieve module info from man pages.
|
||||
Perform shebang adjustments.
|
||||
@ -25,7 +25,7 @@ Perform shebang adjustments.
|
||||
+ set f [open $dfn w]
|
||||
+ puts -nonewline $f $d
|
||||
+ close $f
|
||||
+ file attributes $dfn -owner root -group bin -permissions 0o444
|
||||
+ file attributes $dfn -permissions 0o444
|
||||
+}
|
||||
|
||||
-proc _manfile {f format ext docdir} { return }
|
||||
@ -82,7 +82,7 @@ Perform shebang adjustments.
|
||||
+ set f [open $dfn w]
|
||||
+ puts $f [join $l \n]
|
||||
+ close $f
|
||||
+ file attributes $dfn -owner root -group bin -permissions $perms
|
||||
+ file attributes $dfn -permissions $perms
|
||||
+}
|
||||
+
|
||||
+proc _exa {module srcdir dstdir tclsh} {
|
||||
@ -94,7 +94,7 @@ Perform shebang adjustments.
|
||||
+ if {![file exists $dstdir]} {
|
||||
+ log "Making directory $dstdir"
|
||||
+ file mkdir $dstdir
|
||||
+ file attributes $dstdir -owner root -group bin -permissions 0o755
|
||||
+ file attributes $dstdir -permissions 0o755
|
||||
+ }
|
||||
+ foreach fn [glob -nocomplain -dir [file join $srcdir $actual] *] {
|
||||
+ if {[file isdirectory $fn]} {
|
||||
|
Loading…
x
Reference in New Issue
Block a user