Added better handling of 1.0000 to upgrade_db.pl

diff --git a/t/44_upgrade_db.t b/t/44_upgrade_db.t
index 06bbbdd..44d6b65 100644 (file)
--- a/t/44_upgrade_db.t
+++ b/t/44_upgrade_db.t
@@ -13,7 +13,7 @@ BEGIN {
     }
 }
 
-plan tests => 109;
+plan tests => 116;
 
 use t::common qw( new_fh );
 use File::Spec;
@@ -61,7 +61,7 @@ my @output_versions = (
     '0.91', '0.92', '0.93', '0.94', '0.95', '0.96', '0.97', '0.98',
     '0.981', '0.982', '0.983',
     '0.99_01', '0.99_02', '0.99_03', '0.99_04',
-    '1.00', '1.0000',
+    '1.00', '1.000', '1.0000',
 );
 
 foreach my $input_filename (

diff --git a/utils/upgrade_db.pl b/utils/upgrade_db.pl
index 2badd62..4dfedf4 100755 (executable)
--- a/utils/upgrade_db.pl
+++ b/utils/upgrade_db.pl
@@ -73,7 +73,7 @@ my %db;
   elsif ( $ver =~ /^0\.99/) { 
     $ver = 1;
   }
-  elsif ( $ver =~ /^1\.00/) {
+  elsif ( $ver =~ /^1\.000?0?/) {
     $ver = 2;
   }
   else {