equal
deleted
inserted
replaced
1 #! /usr/bin/perl |
1 #! /usr/bin/perl |
2 my $output = shift; |
2 my $outfile = shift; |
|
3 |
3 chomp(my $version = `hg log -r . --template '{latesttag}-{latesttagdistance}-{node|short}\n'`); |
4 chomp(my $version = `hg log -r . --template '{latesttag}-{latesttagdistance}-{node|short}\n'`); |
|
5 my $now = localtime; |
4 |
6 |
5 open(STDOUT, '>', $output) or die "Can't open $output: $!\n"; |
7 open(my $output, '>', $_ = $outfile) or die "Can't open $_: $!\n"; |
6 print qq{[% vcs.version = "$version"; %]\n}; |
8 |
|
9 print {$output} <<_; |
|
10 [%# autogenerated at $now by $0 %] |
|
11 [% vcs.version = "$version"; %] |
|
12 _ |
|
13 |
|
14 utime 0, 0 => $outfile; |