my %opts = (
man => 0,
help => 0,
- version => '1.0007',
+ version => '1.0013',
autobless => 1,
);
GetOptions( \%opts,
{
my $ver = $opts{version};
- if ( $ver =~ /^1\.000[3-9]/) {
+ if ( $ver =~ /^1\.001[0-3]/) {
+ $ver = 3;
+ }
+ elsif ( $ver =~ /^1\.000[3-9]/) {
$ver = 3;
}
elsif ( $ver =~ /^1\.000?[0-2]?/) {