X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-live.git;a=blobdiff_plain;f=pctb%2Fshow-thing.tcl;h=980a8a48c88763ad41e8bc6ed7bfa1e33a1e8f12;hp=d71c36ef6381c54a885ab038dd55ef5b9840c280;hb=8b3b006869bfdc6c2ddbf58d6709a73433abe2f9;hpb=3fad53f3bc8c29335f290c1fb5e2563b711becfc

diff --git a/pctb/show-thing.tcl b/pctb/show-thing.tcl
index d71c36e..980a8a4 100755
--- a/pctb/show-thing.tcl
+++ b/pctb/show-thing.tcl
@@ -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 ?" }