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