From: Steve Huntley <stephen.huntley@alum.mit.edu>
Date: Mon, 17 May 2010 04:18:07 +0000 (+0000)
Subject: * library/vfslib.tcl: Changed memchan condition from Tcl version 8.6 or
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=09f1390f95a992342cf0c6581e29f86dae3c5b4f;p=tclvfs

* library/vfslib.tcl: Changed memchan condition from Tcl version 8.6 or
greater to presence of chan command (since chan now in later 8.5 builds)
---

diff --git a/ChangeLog b/ChangeLog
index ebd3ff9..b261d85 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2010-05-16  Steve Huntley  <stephen.huntley@alum.mit.edu>
+
+	* library/vfslib.tcl: Changed memchan condition from Tcl version 8.6 or
+	greater to presence of chan command (since chan now in later 8.5 builds)
+
 2010-02-01  Steve Huntley  <stephen.huntley@alum.mit.edu>
 
 	* Makefile.in (PKG_TCL_SOURCES): Added 'template/tclIndex' to the list 
diff --git a/library/vfslib.tcl b/library/vfslib.tcl
index d44a8c9..c03d05c 100644
--- a/library/vfslib.tcl
+++ b/library/vfslib.tcl
@@ -32,7 +32,7 @@ if {[llength [info command zlib]] || ![catch {load "" zlib}]} {
 # Use 8.6 reflected channels or the rechan package in earlier versions to
 # provide a memory channel implementation.
 #
-if {[package vsatisfies [package provide Tcl] 8.6]} {
+if {[info command ::chan] ne {}} {
 
     # As the core zlib channel stacking make non-seekable channels we cannot
     # implement vfs::zstream and this feature is disabled in tclkit boot.tcl