Update DB_File to CPAN version 1.826
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Wed, 25 Jan 2012 09:39:20 +0000 (09:39 +0000)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Wed, 25 Jan 2012 11:10:39 +0000 (11:10 +0000)
  [DELTA]

  1.826 25 Jan 2012

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

Porting/Maintainers.pl
cpan/DB_File/Changes
cpan/DB_File/DB_File.pm
cpan/DB_File/t/db-btree.t
pod/perldelta.pod

index a2e8d2f..b110866 100755 (executable)
@@ -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' => {
index 577ecb2..200ff17 100644 (file)
@@ -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"
index 4f41f59..6b7dc10 100644 (file)
@@ -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
 
 {
index 678393b..fb89a40 100644 (file)
@@ -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[$_];
     }
index 28d327c..bff6b17 100644 (file)
@@ -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 *