updated pkg dependency in mkclvfs, now at 1.1
authorJean-Claude Wippler <jcw@equi4.com>
Tue, 1 Nov 2005 21:35:41 +0000 (21:35 +0000)
committerJean-Claude Wippler <jcw@equi4.com>
Tue, 1 Nov 2005 21:35:41 +0000 (21:35 +0000)
library/mkclvfs.tcl

index 95625c385cedf0696ab492c0dd1be83d9a19a531..0523271f06d7b568e6f218fc5a2c0d6e5a9e0d84 100644 (file)
@@ -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