-#!/usr/bin/perl
+#!perl
use 5.6.0;
my %opts = (
man => 0,
help => 0,
- version => '1.0000',
+ version => '1.0002',
autobless => 0,
);
GetOptions( \%opts,
elsif ( $ver =~ /^0\.99/) {
$ver = 1;
}
- elsif ( $ver =~ /^1\.000?0?/) {
+ elsif ( $ver =~ /^1\.000?[0-2]?/) {
$ver = 2;
}
else {