diff options
author | Marc Espie <espie@cvs.openbsd.org> | 2012-05-22 09:02:53 +0000 |
---|---|---|
committer | Marc Espie <espie@cvs.openbsd.org> | 2012-05-22 09:02:53 +0000 |
commit | 45816cf5d6cf24c8456df017d0a34a8cc22f3d2d (patch) | |
tree | db083cb0f77a00c3610b569f7258f564bf8f9695 /lib/libsqlite3/tool/spaceanal.tcl | |
parent | b15dbd3eb0380f89ab5b2fce55432ff4e993a48c (diff) |
import sqlite 3.7.12 (tested by landry@)
Diffstat (limited to 'lib/libsqlite3/tool/spaceanal.tcl')
-rw-r--r-- | lib/libsqlite3/tool/spaceanal.tcl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lib/libsqlite3/tool/spaceanal.tcl b/lib/libsqlite3/tool/spaceanal.tcl index 3dddfe42d45..fd59670adae 100644 --- a/lib/libsqlite3/tool/spaceanal.tcl +++ b/lib/libsqlite3/tool/spaceanal.tcl @@ -49,15 +49,14 @@ if {$true_file_size<512} { # set extension [file extension $file_to_analyze] set pattern $file_to_analyze -append pattern {[0-9][0-9]} +append pattern {[0-3][0-9][0-9]} foreach f [glob -nocomplain $pattern] { incr true_file_size [file size $f] set extension {} } if {[string length $extension]>=2 && [string length $extension]<=4} { set pattern [file rootname $file_to_analyze] - append pattern [string range $extension 0 1] - append pattern {[0-9][0-9]} + append pattern {.[0-3][0-9][0-9]} foreach f [glob -nocomplain $pattern] { incr true_file_size [file size $f] } |