Tcl Source Code

View Ticket
Login
Ticket UUID: 970529
Title: [file tail] of joined path broken
Type: Bug Version: obsolete: 8.5a2
Submitter: dgp Created on: 2004-06-10 16:39:24
Subsystem: 37. File System Assigned To: vincentdarley
Priority: 5 Medium Severity:
Status: Closed Last Modified: 2004-07-02 20:08:25
Resolution: Fixed Closed By: vincentdarley
    Closed on: 2004-07-02 13:08:25
Description:
file mkdir dgp
close [open dgp/test w]
foreach relative [glob -nocomplain [file join * test]] {
   set absolute [file join [pwd] $relative]
   puts "Tail of $absolute is [file tail $absolute];
should be test"
}
file delete -force dgp
User Comments: vincentdarley added on 2004-07-02 20:08:25:
Logged In: YES 
user_id=32170

Added test.

vincentdarley added on 2004-06-11 00:06:46:
Logged In: YES 
user_id=32170

The patch looks good to me.  I'll add tests when I'm back,
unless you've added them in the mean-time.

dgp added on 2004-06-10 23:53:05:

File Added - 90199: 970529.patch

Logged In: YES 
user_id=80530


This bug is very similar to
956063, and here's a patch
based on that one that works.
I'm committing that patch to
fix the bug, but leaving the
report open for Vince to look
at and determine if a better
fix is available, and to add
tests for this.

Attachments: