From 5cc7114b3e4fd9459b9a1c6dad4249bfd1c3f589 Mon Sep 17 00:00:00 2001 From: Jeff Hobbs Date: Tue, 31 Oct 2000 00:46:05 +0000 Subject: [PATCH] * tkcon.tcl (dir): fixed bug where permissions wouldn't print correctly if user had no permissions. (kuchler) --- ChangeLog | 5 +++++ tkcon.tcl | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index c299767..072864b 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2000-10-30 Jeff Hobbs + + * tkcon.tcl (dir): fixed bug where permissions wouldn't print + correctly if user had no permissions. (kuchler) + 2000-10-18 Jeff Hobbs * tkcon.tcl (::tkcon::NamespacesList): corrected to not use window diff --git a/tkcon.tcl b/tkcon.tcl index 2b3e67e..6c01bac 100755 --- a/tkcon.tcl +++ b/tkcon.tcl @@ -3566,7 +3566,7 @@ proc dir {args} { } else { set mode [string index $st(type) 0] } - foreach j [split [format %o [expr {$st(mode)&0777}]] {}] { + foreach j [split [format %03o [expr {$st(mode)&0777}]] {}] { append mode $s($j) } if {$st(mtime)>$old} { -- 2.23.0