#!/usr/bin/env perl
#
# Public domain
#

my $found = 0;
open(CONFIG, "configure.in") || die "configure.in: $!";
foreach $_ (<CONFIG>) {
	chop;
	if (/^\s*VERSION\(\s*\"([\w+\.\-]+)\"\s*\)\s*$/i) {
		print $1;
		if (@ARGV == 0 || $ARGV[0] != '-n') {
			print "\n";
		}
		$found++;
	}
}
close(CONFIG);
die 'cannot get version' unless ($found);