#!/usr/bin/perl


our $t = "init role type class fdw tsearch misc script";

our $VI = $ENV{VERSION};
our $V;
our $opt_v = 0; # verbose

sub errlog { print STDERR "tests:$_[0]\n"; }

if($ARGV[0]) { $VI=$ARGV[0] }

if($VI=~m!(\d+)(\.(\d+))?!) {
	my ($maj,$min)=($1+0,$3+0);
	if($maj>=10) { $min=0; }
	$V = $maj+$min/10.0;
	if($V<14) {
	    print "pg".$V."\n";
	} else {
	    for(my $i=14;$i<=$V;$i++) {
		print "pg".$i." ";
	    }
	    print "\n";
	}	
} else {
	errlog "No Postgres version specified in VERSION environment variable";
}

