From 0010e7298ec2bea036f45c62837c48046388b10a Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Thu, 17 Jun 2004 21:43:56 +0000
Subject: Remove debugging panic

---
 win/tclWinInit.c | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/win/tclWinInit.c b/win/tclWinInit.c
index 44c2e37..9f6d50f 100644
--- a/win/tclWinInit.c
+++ b/win/tclWinInit.c
@@ -7,7 +7,7 @@
  * Copyright (c) 1998-1999 by Scriptics Corporation.
  * All rights reserved.
  *
- * RCS: @(#) $Id: tclWinInit.c,v 1.54 2004/06/17 21:33:43 dgp Exp $
+ * RCS: @(#) $Id: tclWinInit.c,v 1.55 2004/06/17 21:43:56 dgp Exp $
  */
 
 #include "tclWinInt.h"
@@ -210,7 +210,10 @@ GetDefaultLibraryDir()
     }
 
     if (NULL == defaultLibraryDir) {
-Tcl_Panic("Called GetDLD before SetDLD!");
+	/*
+	 * Careful here.  This may be bogus, calling TclpInitLibraryPath
+	 * when not in TclpInitLock.  OTOH, this branch shouldn't happen.
+	 */
 	TclpInitLibraryPath(NULL);
 	if (NULL != *savedDirectoryPtr) {
 	    return *savedDirectoryPtr;
-- 
cgit v0.12