tools/get-version

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 open(CONF, "configure.ac") or die "Couldn't open configure.ac: $!\n";
   7
   8 while (<CONF>) {
   9   if (/^AC_INIT\(\[stow\], \[(.+?)\]/) {
  10     print "$1\n";
  11     exit 0;
  12   }
  13 }
  14
  15 exit 1;