From: Jean-Claude Wippler <jcw@equi4.com>
Date: Tue, 1 Nov 2005 21:35:41 +0000 (+0000)
Subject: updated pkg dependency in mkclvfs, now at 1.1
X-Git-Tag: vfs-1-4~68
X-Git-Url: http://privyetmir.co.uk/gitweb?a=commitdiff_plain;h=5b92817ec9d37e88bdb9b064db97ddb430bff987;p=tclvfs

updated pkg dependency in mkclvfs, now at 1.1
---

diff --git a/library/mkclvfs.tcl b/library/mkclvfs.tcl
index 95625c3..0523271 100644
--- a/library/mkclvfs.tcl
+++ b/library/mkclvfs.tcl
@@ -2,6 +2,9 @@
 # Rewritten from mk4vfs.tcl, orig by by Matt Newman and Jean-Claude Wippler 
 # $Id$
 
+# 1.0	initial release
+# 1.1	view size renamed to count, vlerq package renamed to thrill
+
 package provide vfs::mkcl 1.1
 package require vfs
 package require thrill
@@ -138,7 +141,7 @@ namespace eval vfs::mkcl {
       set s 0
       set d 0
       set c ""
-      incr l [eval [linsert $tag end | size]]
+      incr l [eval [linsert $tag end | count]]
       incr l [llength [lsearch -exact -int -all $v::prows($db) [lindex $tag 3]]]
     } else {
       set t file