fix deletions from non-mediaroot paths

git-svn-id: file:///root/webif/svn/humax/pkg/src/webif/trunk@691 2a923420-c742-0410-a762-8d5b09965624
This commit is contained in:
hummypkg 2012-01-27 21:54:39 +00:00
parent f62904edb4
commit 909605b074

View File

@ -23,9 +23,10 @@ if {[system pkginst undelete]} {
proc bindir {file} { proc bindir {file} {
global dustbin global dustbin
set dir [file dirname $file] set dir [file dirname $file]
regsub "^[system mediaroot]" $dir $dustbin dir regsub "^[system mediaroot]" $dir $dustbin ndir
system mkdir_p $dir if {$dir eq $ndir} { set ndir $dustbin }
return $dir system mkdir_p $ndir
return $ndir
} }
proc touch {file} { proc touch {file} {