[Tcl-bugs] [ tcl-Bugs-533361 ] file delete does not on W2000/NT

[<no...@so...>]

Bugs item #533361, was opened at 2002-03-21 15:22
You can respond by visiting: 
http://sourceforge.net/tracker/?func=detail&atid=110894&aid=533361&group_id=10894

Category: 35. File System
Group: None
Status: Open
Resolution: None
Priority: 5
Submitted By: Nobody/Anonymous (nobody)
Assigned to: Vince Darley (vincentdarley)
Summary: file delete does not on W2000/NT

Initial Comment:
The following code will not work correctly in Tcl
8.3.2, if executed on W2000/NT on a Samba network
share, even if the user posseses the necessary permissions:

> cd //SambaServer/jdoe
> glob test_dir
test_dir
> glob test_dir/file
test_dir/file
> file delete -force test_dir
error delting "test_dir": permission denied

I could trace down this problem to the
DoRemoveDirectory function in win/tclWinFCmd.c.
Apparently the first attempt to delete the directory
yields an EACCESS error whereas a ENOTEMPTY is expected.

Since the code already handles this behaviour for Win9x
in this function, this simple work arround fixes the issue:

Index: tclWinFCmd.c
===================================================================
RCS file: /export/home/cvs/scriptics/tcl/win/tclWinFCmd.c,v
retrieving revision 1.1.1.1
diff -r1.1.1.1 tclWinFCmd.c
840,841c840
<
<           if (TclWinGetPlatformId() !=
VER_PLATFORM_WIN32_NT) {
---
>           if (1 /*TclWinGetPlatformId() !=
VER_PLATFORM_WIN32_NT*/) {


----------------------------------------------------------------------

You can respond by visiting: 
http://sourceforge.net/tracker/?func=detail&atid=110894&aid=533361&group_id=10894