From: Glenn Jackman on
At 2010-01-20 06:22AM, "Helmut Jarausch" wrote:
>
> proc ComposeStoreBackup {handler schedule} {
> upvar \#0 $handler mh
> global option vFolderDef vFolderHold
>
> if {![info exists mh(hold_fh)]} {
> set mh(hold_fh) [RatOpenFolder $vFolderDef($vFolderHold)]
> }
>
> set msg [ComposeCreateMsg $handler \
> [list [list X-TkRat-Internal-AutoBackup [clock seconds]]]]
> foreach u [$mh(hold_fh) list "%u"] {
> set uids($u) 1
> }
> $mh(hold_fh) insert $msg
> rename $msg ""
> foreach u [$mh(hold_fh) list "%u"] {
> if {![info exists uids($u)]} {
> break
> }
> }
> if {[info exists mh(old_backup)]} {
> ComposeRemoveOldBackup $mh(hold_fh) $mh(old_backup)
> }
> set mh(old_backup) $u
> >>>>>>>> HERE ERROR
> >>>>>>>> can't read "u": no such variable
> >>>>>>>> while executing
> >>>>>>>> "set mh(old_backup) $u"


Does [$mh(hold_fh) list "%u"] return an empty list or an empty string?

As far as I can see, that's the only reason u is unset.


--
Glenn Jackman
Write a wise saying and your name will live forever. -- Anonymous
First  |  Prev  | 
Pages: 1 2
Prev: file stat and mode on Windows
Next: protobuf