5 files changed, 10 insertions, 5 deletions
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index a2e8d2fa98..b1108668eb 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -511,7 +511,7 @@ use File::Glob qw(:case);
 
     'DB_File' => {
         'MAINTAINER'   => 'pmqs',
-        'DISTRIBUTION' => 'PMQS/DB_File-1.825.tar.gz',
+        'DISTRIBUTION' => 'PMQS/DB_File-1.826.tar.gz',
         'FILES'        => q[cpan/DB_File],
         'EXCLUDED'     => [
             qr{^patches/},
@@ -520,7 +520,7 @@ use File::Glob qw(:case);
                 fallback.xs
                 ),
         ],
-        'UPSTREAM' => undef,
+        'UPSTREAM' => 'cpan',
     },
 
     'DBM_Filter' => {
diff --git a/cpan/DB_File/Changes b/cpan/DB_File/Changes
index 577ecb2972..200ff17f58 100644
--- a/cpan/DB_File/Changes
+++ b/cpan/DB_File/Changes
@@ -1,3 +1,8 @@
+1.826 25 Jan 2012
+
+   * t/db-btree.t - fix use of "length @array"
+     [RT ##74336]
+
 1.825 24 Jan 2012
 
    * t/db-btree.t - fix use of "length @array"
diff --git a/cpan/DB_File/DB_File.pm b/cpan/DB_File/DB_File.pm
index 4f41f59411..6b7dc103ef 100644
--- a/cpan/DB_File/DB_File.pm
+++ b/cpan/DB_File/DB_File.pm
@@ -165,7 +165,7 @@ our ($db_version, $use_XSLoader, $splice_end_array_no_length, $splice_end_array,
 use Carp;
 
 
-$VERSION = "1.825" ;
+$VERSION = "1.826" ;
 $VERSION = eval $VERSION; # needed for dev releases
 
 {
diff --git a/cpan/DB_File/t/db-btree.t b/cpan/DB_File/t/db-btree.t
index 678393bf84..fb89a40855 100644
--- a/cpan/DB_File/t/db-btree.t
+++ b/cpan/DB_File/t/db-btree.t
@@ -566,7 +566,7 @@ sub ArrayCompare
  
     return 0 if @$a != @$b ;
  
-    foreach (1 .. @$a - 1)
+    foreach (0 .. @$a - 1)
     {
         return 0 unless $$a[$_] eq $$b[$_];
     }
diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index 28d327c455..bff6b17433 100644
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -113,7 +113,7 @@ XXX
 
 =item *
 
-L<DB_File> has been upgraded from version 1.824 to version 1.825.
+L<DB_File> has been upgraded from version 1.824 to version 1.826.
 
 =item *