1#!/usr/local/bin/perl
2# Public domain
3
4my $found = 0;
5open(CONFIG, "configure.in") || die "configure.in: $!";
6foreach $_ (<CONFIG>) {
7	chop;
8	if (/^\s*VERSION\(\s*\"([\w+\.\-]+)\"\s*\)\s*$/) {
9		print $1;
10		if (@ARGV == 0 || $ARGV[0] != '-n') {
11			print "\n";
12		}
13		$found++;
14	}
15}
16close(CONFIG);
17die 'cannot get version' unless ($found);
18
19