From 6cfb3d987a48cb1ed8dcde2df5c84a5dddae1dde Mon Sep 17 00:00:00 2001 From: dkf Date: Sun, 26 Jul 2009 21:48:45 +0000 Subject: Simplify a bit further following more testing --- library/auto.tcl | 13 +++---------- 1 file changed, 3 insertions(+), 10 deletions(-) diff --git a/library/auto.tcl b/library/auto.tcl index 7d4c340..42ffa72 100644 --- a/library/auto.tcl +++ b/library/auto.tcl @@ -3,7 +3,7 @@ # utility procs formerly in init.tcl dealing with auto execution of commands # and can be auto loaded themselves. # -# RCS: @(#) $Id: auto.tcl,v 1.29 2009/07/26 11:40:23 dkf Exp $ +# RCS: @(#) $Id: auto.tcl,v 1.30 2009/07/26 21:48:45 dkf Exp $ # # Copyright (c) 1991-1993 The Regents of the University of California. # Copyright (c) 1994-1998 Sun Microsystems, Inc. @@ -63,7 +63,6 @@ proc tcl_findLibrary {basename version patch initScript enVarName varName} { if {[info exists the_library] && $the_library ne ""} { lappend dirs $the_library } else { - # Do the canonical search # 1. From an environment variable, if it exists. Placing this first @@ -77,14 +76,8 @@ proc tcl_findLibrary {basename version patch initScript enVarName varName} { # 2. In the package script directory registered within the # configuration of the package itself. - try { - ::${basename}::pkgconfig get scriptdir,runtime - } on ok value { - lappend dirs $value - } on error {msg opts} { - if {![string match "invalid command name *" $msg]} { - return -options $opts $msg - } + catch { + lappend dirs [::${basename}::pkgconfig get scriptdir,runtime] } # 3. Relative to auto_path directories. This checks relative to the -- cgit v0.12