Fossil SCM
Fixed handling of project objects when persisting them. Fill the project map. This is needed if the pass is not skipped. For the skip case we already initialize the project map when 'load'ing from the state.
Commit
67600f777bb412f6205a3e9adf15221abbd8f792
Parent
85bd219d0b2eca4…
1 file changed
+5
-1
| --- tools/cvs2fossil/lib/c2f_repository.tcl | ||
| +++ tools/cvs2fossil/lib/c2f_repository.tcl | ||
| @@ -131,12 +131,16 @@ | ||
| 131 | 131 | return |
| 132 | 132 | } |
| 133 | 133 | |
| 134 | 134 | # pass I persistence |
| 135 | 135 | typemethod persist {} { |
| 136 | + ::variable myprojmap | |
| 136 | 137 | state transaction { |
| 137 | - foreach p [TheProjects] { $p persist } | |
| 138 | + foreach p [TheProjects] { | |
| 139 | + $p persist | |
| 140 | + set myprojmap([$p id]) $p | |
| 141 | + } | |
| 138 | 142 | } |
| 139 | 143 | return |
| 140 | 144 | } |
| 141 | 145 | |
| 142 | 146 | typemethod load {} { |
| 143 | 147 |
| --- tools/cvs2fossil/lib/c2f_repository.tcl | |
| +++ tools/cvs2fossil/lib/c2f_repository.tcl | |
| @@ -131,12 +131,16 @@ | |
| 131 | return |
| 132 | } |
| 133 | |
| 134 | # pass I persistence |
| 135 | typemethod persist {} { |
| 136 | state transaction { |
| 137 | foreach p [TheProjects] { $p persist } |
| 138 | } |
| 139 | return |
| 140 | } |
| 141 | |
| 142 | typemethod load {} { |
| 143 |
| --- tools/cvs2fossil/lib/c2f_repository.tcl | |
| +++ tools/cvs2fossil/lib/c2f_repository.tcl | |
| @@ -131,12 +131,16 @@ | |
| 131 | return |
| 132 | } |
| 133 | |
| 134 | # pass I persistence |
| 135 | typemethod persist {} { |
| 136 | ::variable myprojmap |
| 137 | state transaction { |
| 138 | foreach p [TheProjects] { |
| 139 | $p persist |
| 140 | set myprojmap([$p id]) $p |
| 141 | } |
| 142 | } |
| 143 | return |
| 144 | } |
| 145 | |
| 146 | typemethod load {} { |
| 147 |