X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FDB_File%2Fdbinfo;h=5a4df15907eea1ba699132d130601c7d66adb9dc;hb=07200f1b93ada43b41fbed10c30b4e657f5b0c60;hp=240e3fc6154abcb923fb0733f9bfbb99ed68f3d2;hpb=3245f0580c13b3ab105e59fb6c74519f9d8c8ef0;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/DB_File/dbinfo b/ext/DB_File/dbinfo
index 240e3fc..5a4df15 100644
--- a/ext/DB_File/dbinfo
+++ b/ext/DB_File/dbinfo
@@ -49,7 +49,9 @@ my %Data =
 			  Type     => "Queue",
 			  Versions =>
 				{
-				  1	=> "3.0.0 or greater",
+				  1	=> "3.0.x",
+				  2	=> "3.1.x",
+				  3	=> "3.2.x or greater",
 				}
 			},
 	) ;
@@ -88,7 +90,7 @@ else
   { die "not a Berkeley DB database file.\n" }
 
 my $type = $Data{$magic} ;
-my $magic = sprintf "%06X", $magic ;
+$magic = sprintf "%06X", $magic ;
 
 my $ver_string = "Unknown" ;
 $ver_string = $type->{Versions}{$version}