Made cms uploading file safer.

This commit is contained in:
2016-11-30 15:40:12 +01:00
parent 7d50973fd5
commit 18d26a765a

View File

@@ -98,8 +98,17 @@ feature -- Element change
feature -- Basic operation
move_to (p: PATH): BOOLEAN
local
retried: BOOLEAN
do
if retried then
Result := False
else
Result := uploaded_file.move_to (p.name)
end
rescue
retried := True
retry
end
end