From: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
Date: Wed, 25 Jan 2012 09:39:20 +0000 (+0000)
Subject: Update DB_File to CPAN version 1.826
X-Git-Tag: accepted/trunk/20130322.191538~973
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=b34385a668b1275a17bd3e8d94e6c6decb78edf5;p=platform%2Fupstream%2Fperl.git

Update DB_File to CPAN version 1.826

  [DELTA]

  1.826 25 Jan 2012

   * t/db-btree.t - fix use of "length @array"
     [RT ##74336]
---

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index a2e8d2f..b110866 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 577ecb2..200ff17 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 4f41f59..6b7dc10 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 678393b..fb89a40 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 28d327c..bff6b17 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 *