Index: openacs-4/packages/oacs-dav/tcl/tDAV-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/oacs-dav/tcl/tDAV-procs.tcl,v diff -u -r1.13.2.1 -r1.13.2.2 --- openacs-4/packages/oacs-dav/tcl/tDAV-procs.tcl 12 Sep 2015 19:00:43 -0000 1.13.2.1 +++ openacs-4/packages/oacs-dav/tcl/tDAV-procs.tcl 27 Mar 2017 10:41:51 -0000 1.13.2.2 @@ -124,7 +124,7 @@ seek $fp 0 set xml [read $fp] close $fp - file delete $tmpfile + file delete -- $tmpfile ns_log debug "\n-----tdav::read_xml XML = -----\n $xml \n ----- end ----- \n " return $xml } @@ -230,7 +230,7 @@ proc tdav::delete_props {uri} { set entry [tdav::get_prop_file $uri] - catch {[file delete -force $entry]} err + catch {[file delete -force -- $entry]} err return err } @@ -317,7 +317,7 @@ # Lock file for URI is deleted proc tdav::remove_lock {uri} { - file delete [tdav::get_lock_file $uri] + file delete -- [tdav::get_lock_file $uri] } # tdav::dbm_write_array @@ -1055,17 +1055,17 @@ set ret_code 412 } else { set ret_code 204 - file delete -force $local_dest + file delete -force -- $local_dest file copy -force $entry $local_dest - file delete -force $entry + file delete -force -- $entry tdav::copy_props $uri $newuri tdav::delete_props $uri } } else { set ret_code 201 file copy $entry $local_dest tdav::copy_props $uri $newuri - file delete -force $entry + file delete -force -- $entry tdav::delete_props $uri } }