forked from hummypkg/webif
Overwrite files from previous shrink failure
This commit is contained in:
parent
d3f83f6f42
commit
1def3cc520
@ -77,7 +77,7 @@ proc ::shrink::dequeue {q ts} {
|
||||
# Move the shrunken version back to the local directory.
|
||||
foreach f [glob "$tmp/shrunk.*"] {
|
||||
set ext [file extension $f]
|
||||
file rename $f "${file}_shrunk${ext}"
|
||||
file rename -force $f "${file}_shrunk${ext}"
|
||||
# Set the file time to match the old file
|
||||
file touch "${file}_shrunk${ext}" [$ts get file]
|
||||
}
|
||||
@ -93,7 +93,7 @@ proc ::shrink::dequeue {q ts} {
|
||||
foreach ext $tsgroup {
|
||||
set f "${file}_shrunk.$ext"
|
||||
if {[file exists $f]} {
|
||||
file rename $f "${file}.$ext"
|
||||
file rename -force $f "${file}.$ext"
|
||||
}
|
||||
}
|
||||
$ts set_shrunk
|
||||
|
Loading…
Reference in New Issue
Block a user