Fossil SCM
Bugfix. Translation implies encoding, not the reverse. This caused problems when parsing files with mixed-mode line-endings. The generated char offsets and lengths were off. Found during expansion.
Commit
6f1c4424b4d53322ece0345231e1358b7f912849
Parent
d9fc75e58714bc3…
1 file changed
+1
-1
| --- tools/cvs2fossil/lib/rcsparser.tcl | ||
| +++ tools/cvs2fossil/lib/rcsparser.tcl | ||
| @@ -440,11 +440,11 @@ | ||
| 440 | 440 | # # ## ### ##### ######## ############# |
| 441 | 441 | ## Setup, callbacks. |
| 442 | 442 | |
| 443 | 443 | proc Initialize {path sink} { |
| 444 | 444 | ::variable mypos 0 |
| 445 | - ::variable mydata [fileutil::cat -encoding binary $path] | |
| 445 | + ::variable mydata [fileutil::cat -translation binary $path] | |
| 446 | 446 | ::variable mysize [file size $path] |
| 447 | 447 | ::variable mysink $sink |
| 448 | 448 | return |
| 449 | 449 | } |
| 450 | 450 | |
| 451 | 451 |
| --- tools/cvs2fossil/lib/rcsparser.tcl | |
| +++ tools/cvs2fossil/lib/rcsparser.tcl | |
| @@ -440,11 +440,11 @@ | |
| 440 | # # ## ### ##### ######## ############# |
| 441 | ## Setup, callbacks. |
| 442 | |
| 443 | proc Initialize {path sink} { |
| 444 | ::variable mypos 0 |
| 445 | ::variable mydata [fileutil::cat -encoding binary $path] |
| 446 | ::variable mysize [file size $path] |
| 447 | ::variable mysink $sink |
| 448 | return |
| 449 | } |
| 450 | |
| 451 |
| --- tools/cvs2fossil/lib/rcsparser.tcl | |
| +++ tools/cvs2fossil/lib/rcsparser.tcl | |
| @@ -440,11 +440,11 @@ | |
| 440 | # # ## ### ##### ######## ############# |
| 441 | ## Setup, callbacks. |
| 442 | |
| 443 | proc Initialize {path sink} { |
| 444 | ::variable mypos 0 |
| 445 | ::variable mydata [fileutil::cat -translation binary $path] |
| 446 | ::variable mysize [file size $path] |
| 447 | ::variable mysink $sink |
| 448 | return |
| 449 | } |
| 450 | |
| 451 |