Show More
| @@ -472,9 +472,8 b' proc readrefs {} {' | |||||
| 472 | exit 2 |
|
472 | exit 2 | |
| 473 | } |
|
473 | } | |
| 474 | } |
|
474 | } | |
| 475 | regsub -all "\r\n" $heads "\n" heads |
|
475 | ||
| 476 |
|
476 | set lines [split $heads \r\n] | ||
| 477 | set lines [split $heads "\n"] |
|
|||
| 478 | foreach f $lines { |
|
477 | foreach f $lines { | |
| 479 | set match "" |
|
478 | set match "" | |
| 480 | regexp {changeset:\s+(\S+):(\S+)$} $f match id sha |
|
479 | regexp {changeset:\s+(\S+):(\S+)$} $f match id sha | |
General Comments 0
You need to be logged in to leave comments.
Login now