From: Daniel Steffen <das@users.sourceforge.net>
Date: Mon, 8 Apr 2002 10:42:16 +0000 (+0000)
Subject: 2002-04-08  Daniel Steffen  <das@users.sourceforge.net>
X-Git-Tag: vfs-1-2~63
X-Git-Url: http://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=f25e975cf7cf42ae593699332f6bfda743d1c21b;p=tclvfs

2002-04-08  Daniel Steffen  <das@users.sourceforge.net>
	* mac/pkgIndex_mac.tcl: synced to generic/pkgIndex.tcl
---

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"