#3526 glob regression

[Don Porter]

% info patch
8.4.13
% glob *
foo
% glob -dir . /foo
.//foo

This is a new bug in Tcl 8.4.13.
Tcl 8.4.12 gets it right:

% info patch
8.4.12
% glob *
foo
% glob -dir . /foo
./foo

This contributes to failures
in the fileutil package test suite.
(1566389)

[Don Porter]

Logged In: YES
user_id=80530

BTW, this also is working
fine in the HEAD

[Don Porter]

Logged In: YES
user_id=80530

Aha! Good news. Tcl 8.4.13
is fine too (was testing with
local patched copy).

This regression came into
the 8.4.14 dev. sources with
my 2006-05-13 commit.

[Don Porter]

[Don Porter]

Logged In: YES
user_id=80530

Attached patch corrects
the regression and passes
the test suite on unix.

Committing so it will
get more testing.

[SourceForge Robot]

Logged In: YES
user_id=1312539

This Tracker item was closed automatically by the system. It was
previously set to a Pending status, and the original submitter
did not respond within 14 days (the time period specified by
the administrator of this Tracker).