chiark / gitweb /
allow nonexistent charset db
[ypp-sc-tools.web-live.git] / pctb / show-thing.tcl
index d71c36e..980a8a4 100755 (executable)
@@ -387,6 +387,7 @@ proc read_database {} {
     global database database_header rows database_fn
     catch { unset database }
     set database_fn ./charset-$rows.txt
+    if {![file exists $database_fn]} return
     set f [open $database_fn r]
     if {[string compare [db_getsl $f] $database_header]} { error "$l ?" }
     if {([db_getsl $f])+0 != $rows} { error "wrong h ?" }