diff options
Diffstat (limited to 'library/init.tcl')
| -rw-r--r-- | library/init.tcl | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/library/init.tcl b/library/init.tcl index d875f2e..10d0f3c 100644 --- a/library/init.tcl +++ b/library/init.tcl @@ -3,7 +3,7 @@ # Default system startup file for Tcl-based applications. Defines # "unknown" procedure and auto-load facilities. # -# RCS: @(#) $Id: init.tcl,v 1.53 2002/10/03 13:34:32 dkf Exp $ +# RCS: @(#) $Id: init.tcl,v 1.54 2002/10/28 16:34:25 dgp Exp $ # # Copyright (c) 1991-1993 The Regents of the University of California. # Copyright (c) 1994-1996 Sun Microsystems, Inc. @@ -113,6 +113,17 @@ if {(![interp issafe]) && [string equal $tcl_platform(platform) "windows"]} { package unknown tclPkgUnknown +if {![interp issafe]} { + # setup platform specific unknown package handlers + if {[string equal $::tcl_platform(platform) "unix"] && \ + [string equal $::tcl_platform(os) "Darwin"]} { + package unknown [list tcl::MacOSXPkgUnknown [package unknown]] + } + if {[string equal $::tcl_platform(platform) "macintosh"]} { + package unknown [list tcl::MacPkgUnknown [package unknown]] + } +} + # Conditionalize for presence of exec. if {[llength [info commands exec]] == 0} { |