# Prints out the package name for the version of perl running this script

my $v = sprintf "%.3f", $];

# Not supported any more.
if ($v == "5.004" or $v == "5.005") {
  print "$v";
  exit 1;
}

($maj, $min) = ($v =~ m/^([0-9]*)\.0*([1-9][0-9]*)/);

if (scalar(@ARGV) > 0) {
  # Print next version.
  print $maj, ".", ($min + 1);
} elsif ($maj == 5 and $min == 6) {
  print $maj, ".", $min, ".0-20";
} else {
  print $maj, ".", $min;
}

exit 0;
