summaryrefslogtreecommitdiff
path: root/lib/libsqlite3/tool/spaceanal.tcl
diff options
context:
space:
mode:
authorMarc Espie <espie@cvs.openbsd.org>2012-05-22 09:02:53 +0000
committerMarc Espie <espie@cvs.openbsd.org>2012-05-22 09:02:53 +0000
commit45816cf5d6cf24c8456df017d0a34a8cc22f3d2d (patch)
treedb083cb0f77a00c3610b569f7258f564bf8f9695 /lib/libsqlite3/tool/spaceanal.tcl
parentb15dbd3eb0380f89ab5b2fce55432ff4e993a48c (diff)
import sqlite 3.7.12 (tested by landry@)
Diffstat (limited to 'lib/libsqlite3/tool/spaceanal.tcl')
-rw-r--r--lib/libsqlite3/tool/spaceanal.tcl5
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]
}