From 5b92817ec9d37e88bdb9b064db97ddb430bff987 Mon Sep 17 00:00:00 2001 From: Jean-Claude Wippler Date: Tue, 1 Nov 2005 21:35:41 +0000 Subject: [PATCH] updated pkg dependency in mkclvfs, now at 1.1 --- library/mkclvfs.tcl | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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 -- 2.23.0