From: rkinyon <rkinyon@50811bd7-b8ce-0310-adc1-d9db26280581>
Date: Mon, 19 Feb 2007 17:25:18 +0000 (+0000)
Subject: Added better handling of 1.0000 to upgrade_db.pl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=05f6fd55997672f824b74476fcc50574a362fa4a;p=dbsrgits%2FDBM-Deep.git

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
--- 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
--- 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 {