From acb29889980031300ef2b368379211e68703d663 Mon Sep 17 00:00:00 2001
From: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
Date: Tue, 24 Jan 2012 22:46:59 +0000
Subject: [PATCH] Update DB_File to CPAN version 1.825

  [DELTA]

  1.825 24 Jan 2012

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

  and [perl #108970]
---
 Porting/Maintainers.pl    | 2 +-
 cpan/DB_File/Changes      | 5 +++++
 cpan/DB_File/DB_File.pm   | 4 ++--
 cpan/DB_File/DB_File.xs   | 2 +-
 cpan/DB_File/dbinfo       | 2 +-
 cpan/DB_File/t/db-btree.t | 4 ++--
 pod/perldelta.pod         | 4 ++++
 7 files changed, 16 insertions(+), 7 deletions(-)

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 5afb374..c03f4a5 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.824.tar.gz',
+        'DISTRIBUTION' => 'PMQS/DB_File-1.825.tar.gz',
         'FILES'        => q[cpan/DB_File],
         'EXCLUDED'     => [
             qr{^patches/},
diff --git a/cpan/DB_File/Changes b/cpan/DB_File/Changes
index f527911..577ecb2 100644
--- a/cpan/DB_File/Changes
+++ b/cpan/DB_File/Changes
@@ -1,3 +1,8 @@
+1.825 24 Jan 2012
+
+   * t/db-btree.t - fix use of "length @array"
+     [RT ##74336]
+
 1.824 6 Aug 2011
 
    * Amendments to tests to work in blead
diff --git a/cpan/DB_File/DB_File.pm b/cpan/DB_File/DB_File.pm
index d7fba44..4f41f59 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.824" ;
+$VERSION = "1.825" ;
 $VERSION = eval $VERSION; # needed for dev releases
 
 {
@@ -2279,7 +2279,7 @@ archive in F<src/misc/db.1.85.tar.gz>.
 
 =head1 COPYRIGHT
 
-Copyright (c) 1995-2007 Paul Marquess. All rights reserved. This program
+Copyright (c) 1995-2012 Paul Marquess. All rights reserved. This program
 is free software; you can redistribute it and/or modify it under the
 same terms as Perl itself.
 
diff --git a/cpan/DB_File/DB_File.xs b/cpan/DB_File/DB_File.xs
index e61dc13..6790d5d 100644
--- a/cpan/DB_File/DB_File.xs
+++ b/cpan/DB_File/DB_File.xs
@@ -8,7 +8,7 @@
 
  All comments/suggestions/problems are welcome
 
-     Copyright (c) 1995-2009 Paul Marquess. All rights reserved.
+     Copyright (c) 1995-2012 Paul Marquess. All rights reserved.
      This program is free software; you can redistribute it and/or
      modify it under the same terms as Perl itself.
 
diff --git a/cpan/DB_File/dbinfo b/cpan/DB_File/dbinfo
index b8cd65a..e8abc97 100644
--- a/cpan/DB_File/dbinfo
+++ b/cpan/DB_File/dbinfo
@@ -7,7 +7,7 @@
 # Version: 	1.06 
 # Date		27th March 2008
 #
-#     Copyright (c) 1998-2008 Paul Marquess. All rights reserved.
+#     Copyright (c) 1998-2012 Paul Marquess. All rights reserved.
 #     This program is free software; you can redistribute it and/or
 #     modify it under the same terms as Perl itself.
 
diff --git a/cpan/DB_File/t/db-btree.t b/cpan/DB_File/t/db-btree.t
index 29c70a1..678393b 100644
--- a/cpan/DB_File/t/db-btree.t
+++ b/cpan/DB_File/t/db-btree.t
@@ -566,9 +566,9 @@ sub ArrayCompare
  
     return 0 if @$a != @$b ;
  
-    foreach (1 .. length @$a)
+    foreach (1 .. @$a - 1)
     {
-        return 0 unless $$a[$_] eq $$b[$_] ;
+        return 0 unless $$a[$_] eq $$b[$_];
     }
  
     1 ;
diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index 7c5ffa0..4e3833c 100644
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -113,6 +113,10 @@ XXX
 
 =item *
 
+L<DB_File> has been upgraded from version 1.824 to version 1.825.
+
+=item *
+
 L<Pod::Parser> has been upgraded from version 1.37 to version 1.50.
 
 =back
-- 
2.7.4