1 #! /usr/bin/perl

     2 my $output = shift;

     3 chomp(my $version = `hg log -r . --template '{latesttag}-{latesttagdistance}-{node|short}\n'`);

     4 

     5 open(STDOUT, '>', $output) or die "Can't open $output: $!\n";

     6 print qq{[% vcs.version = "$version"; %]\n};