DB_File 1.800

[p5sagit/p5-mst-13.2.git] / ext / DB_File / dbinfo

diff --git a/ext/DB_File/dbinfo b/ext/DB_File/dbinfo
index 240e3fc..5a4df15 100644 (file)
--- 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}