--- a/src/checkver.pl	Tue Jul 15 06:47:49 2008 +0000
+++ b/src/checkver.pl	Sat Mar 03 15:52:59 2012 +1000
@@ -1,21 +1,21 @@
 #!/usr/bin/perl
 # Usage: updatever.pl <basever> <top_srcdir> <version file>
 
-my $svnversion = "svnversion";
+my $hgversion = "hg identify -i -n";
 my $basever = $ARGV[0];
 my $top_srcdir = $ARGV[1];
 my $outfile = $ARGV[2];
 
-my $rev = "";
+my $rev = "", $hash;
 my $full_ver = "$basever";
 
-if( $svnversion ) {
-   $rev = `$svnversion "$top_srcdir"`;
-   chomp $rev;
-   if( $rev == "exported" ) {
-      $rev = "";
-   } else {
-      $full_ver = "${basever}.${rev}";
+if( $hgversion ) {
+   my $ident = `$hgversion "$top_srcdir" 2>/dev/null`;
+   if ( $? == 0 ) {
+      chomp $ident;
+      ($hash,$rev) = split /\s+/,$ident,2;
+      $rev =~ s/\+//g;
+      $full_ver = "${basever}.${rev}:${hash}";
    }
 }
 my $header = "/* Autogenerated by checkver.pl */";