Check-in [bf0b70d5e0]
Not logged in
Overview

SHA1 Hash:bf0b70d5e08fe0d6747e3c6e6687b18aa531f3a9
Date: 2007-12-06 03:48:25
User: aku
Comment:Fixed handling of empty revisions.
Timelines: ancestors | descendants | both | trunk
Other Links: files | ZIP archive | manifest

Tags And Properties
Changes
[hide diffs]

Modified tools/cvs2fossil/lib/c2f_file.tcl from [b1c125a062] to [44f7ae687c].

@@ -382,12 +382,16 @@
     method Expand1 {chan dir graph node} {
 	set revnr           [$graph node get $node revnr]
 	set fname          r$revnr
 	struct::list assign [$graph node get $node text] offset length
 
-	seek $chan $offset start
-	set data [string map {@@ @} [read $chan $length]]
+	if {$length < 0} {
+	    set data ""
+	} else {
+	    seek $chan $offset start
+	    set data [string map {@@ @} [read $chan $length]]
+	}
 
 	if {![$graph node keyexists $node __base__]} {
 	    # Full text node. Get the data, decode it, and save.
 
 	    log write 2 file {Expanding <$revnr>, full text}