3 files changed, 7 insertions, 8 deletions
diff --git a/cpan/DB_File/DB_File.pm b/cpan/DB_File/DB_File.pm
index 67083d84db..c00437c313 100644
--- a/cpan/DB_File/DB_File.pm
+++ b/cpan/DB_File/DB_File.pm
@@ -9,7 +9,7 @@
 
 package DB_File::HASHINFO ;
 
-require 5.00404;
+require 5.00504;
 
 use warnings;
 use strict;
@@ -163,7 +163,7 @@ our ($db_version, $use_XSLoader, $splice_end_array_no_length, $splice_end_array,
 use Carp;
 
 
-$VERSION = "1.829" ;
+$VERSION = "1.830" ;
 $VERSION = eval $VERSION; # needed for dev releases
 
 {
@@ -186,7 +186,6 @@ $DB_RECNO = new DB_File::RECNOINFO ;
 
 require Tie::Hash;
 require Exporter;
-use AutoLoader;
 BEGIN {
     $use_XSLoader = 1 ;
     { local $SIG{__DIE__} ; eval { require XSLoader } ; }
@@ -257,9 +256,6 @@ if ($use_XSLoader)
 else
   { bootstrap DB_File $VERSION }
 
-# Preloaded methods go here.  Autoload methods go after __END__, and are
-# processed by the autosplit program.
-
 sub tie_hash_or_array
 {
     my (@arg) = @_ ;
diff --git a/cpan/DB_File/DB_File.xs b/cpan/DB_File/DB_File.xs
index 54529178db..83ba736826 100644
--- a/cpan/DB_File/DB_File.xs
+++ b/cpan/DB_File/DB_File.xs
@@ -1497,7 +1497,10 @@ SV *   sv ;
 	}
 
         if (status)
+	{
+	    db_close(RETVAL); // close **dbp handle to prevent mem.leak
 	    RETVAL->dbp = NULL ;
+	}
 
     }
 
diff --git a/cpan/DB_File/Makefile.PL b/cpan/DB_File/Makefile.PL
index 1beef327b0..d33e74f30c 100644
--- a/cpan/DB_File/Makefile.PL
+++ b/cpan/DB_File/Makefile.PL
@@ -4,8 +4,8 @@ use strict ;
 use ExtUtils::MakeMaker 5.16 ;
 use Config ;
 
-die "DB_File needs Perl 5.004_05 or better. This is $]\n" 
-    if $] <= 5.00404; 
+die "DB_File needs Perl 5.005_04 or better. This is $]\n" 
+    if $] < 5.00504; 
 
 my $VER_INFO ;
 my $LIB_DIR ;