This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update DB_File to CPAN version 1.825
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Tue, 24 Jan 2012 22:46:59 +0000 (22:46 +0000)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Tue, 24 Jan 2012 22:46:59 +0000 (22:46 +0000)
  [DELTA]

  1.825 24 Jan 2012

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

  and [perl #108970]

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

index 5afb374..c03f4a5 100755 (executable)
@@ -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/},
index f527911..577ecb2 100644 (file)
@@ -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
index d7fba44..4f41f59 100644 (file)
@@ -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.
 
index e61dc13..6790d5d 100644 (file)
@@ -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.
 
index b8cd65a..e8abc97 100644 (file)
@@ -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.
 
index 29c70a1..678393b 100644 (file)
@@ -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 ;
index 7c5ffa0..4e3833c 100644 (file)
@@ -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