From ed31d0785a54453b8e4d674ec0e7d46981af0ee0 Mon Sep 17 00:00:00 2001 From: rmax Date: Thu, 24 Jul 2003 08:23:16 +0000 Subject: * library/package.tcl: Fixed a typo that broke pkg_mkIndex -verbose. FossilOrigin-Name: b6c336093538f12e8feb134f2c4fc53673d9e4b1 --- library/package.tcl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/library/package.tcl b/library/package.tcl index 663b84a..fa6f445 100644 --- a/library/package.tcl +++ b/library/package.tcl @@ -3,7 +3,7 @@ # utility procs formerly in init.tcl which can be loaded on demand # for package management. # -# RCS: @(#) $Id: package.tcl,v 1.23.2.1 2003/07/11 18:46:25 dgp Exp $ +# RCS: @(#) $Id: package.tcl,v 1.23.2.2 2003/07/24 08:23:17 rmax Exp $ # # Copyright (c) 1991-1993 The Regents of the University of California. # Copyright (c) 1994-1998 Sun Microsystems, Inc. @@ -368,7 +368,7 @@ proc pkg_mkIndex {args} { set cmds [lsort [$c eval array names ::tcl::newCmds]] set pkgs [$c eval set ::tcl::newPkgs] if {$doVerbose} { - if { !$::tcl::direct } { + if { !$direct } { tclLog "commands provided were $cmds" } tclLog "packages provided were $pkgs" -- cgit v0.12