From f25e975cf7cf42ae593699332f6bfda743d1c21b Mon Sep 17 00:00:00 2001
From: Daniel Steffen <das@users.sourceforge.net>
Date: Mon, 8 Apr 2002 10:42:16 +0000
Subject: [PATCH] 2002-04-08 Daniel Steffen <das@users.sourceforge.net>
* mac/pkgIndex_mac.tcl: synced to generic/pkgIndex.tcl
---
ChangeLog | 5 ++++-
mac/pkgIndex_mac.tcl | 13 +++++++++++++
2 files changed, 17 insertions(+), 1 deletion(-)
diff --git a/ChangeLog b/ChangeLog
index 246e520..f1a51e3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
+2002-04-08 Daniel Steffen <das@users.sourceforge.net>
+ * mac/pkgIndex_mac.tcl: synced to generic/pkgIndex.tcl
+
2002-04-01 Vince Darley <vincentdarley@sourceforge.net>
- * Makefile.in: compilation fix from jcw.
+ * Makefile.in: compilation fix from jcw.
2002-03-16 Vince Darley <vincentdarley@sourceforge.net>
* generic/vfs.c: updated for latest cvs head of Tcl 8.4a5.
diff --git a/mac/pkgIndex_mac.tcl b/mac/pkgIndex_mac.tcl
index 8082439..43a98ca 100644
--- a/mac/pkgIndex_mac.tcl
+++ b/mac/pkgIndex_mac.tcl
@@ -1,5 +1,18 @@
# Tcl package index file, version 1.1
+# We don't really want to throw an error with older versions of
+# Tcl, they should just ignore us.
+if {[package provide Tcl] < 8.4} {
+ return
+}
+
+package require Tcl 8.4
+if {[info tclversion] == 8.4} {
+ if {[regexp {8.4a(1|2|3|4)} [info patchlevel]]} {
+ error "Tcl 8.4a5 (March 20th 2002) or newer is required"
+ }
+}
+
package ifneeded vfs 1.0 "load [list [file join $dir Vfs[info sharedlibextension]]] vfs
source -rsrc vfs:tclIndex"
--
2.23.0