|
Last change
on this file since 6540 was 6540, checked in by Don-vip, 12 years ago |
|
fix #9450 - Allow to build JOSM from a git mirror clone with ant -Dgit_revision=true
|
|
File size:
286 bytes
|
| Line | |
|---|
| 1 | #!perl -w
|
|---|
| 2 |
|
|---|
| 3 | $l=<>;
|
|---|
| 4 | if ($l =~ /([-+: .\w]+)/) {
|
|---|
| 5 | $date=$1;
|
|---|
| 6 | }
|
|---|
| 7 |
|
|---|
| 8 | while (<>) {
|
|---|
| 9 | if (/git-svn-id: [^@]*@([0-9]+)\s/) {
|
|---|
| 10 | $rev=$1;
|
|---|
| 11 | }
|
|---|
| 12 | }
|
|---|
| 13 | print "<info><entry><commit". ($rev?" revision=\"$rev\"":"") .">". ($date?"<date>$date</date>":"") ."</commit></entry></info>\n";
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
