diff options
author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2013-05-26 14:50:15 +0100 |
---|---|---|
committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2013-05-26 14:50:15 +0100 |
commit | b6990ae0c41eccbe44ff95183c3f5a1f24b50382 (patch) | |
tree | 457a86aaa0574b1aab2684d8f90048b997171ca0 | |
parent | 273225d4fa4dfa112b49b1cb5b087814b160dd32 (diff) | |
download | perl-b6990ae0c41eccbe44ff95183c3f5a1f24b50382.tar.gz |
Update DB_File to CPAN version 1.828
[DELTA]
1.828 7 May 2013
* Minor change to build with Berkeley DB 6.x
-rwxr-xr-x | Porting/Maintainers.pl | 2 | ||||
-rw-r--r-- | cpan/DB_File/Changes | 4 | ||||
-rw-r--r-- | cpan/DB_File/DB_File.pm | 8 | ||||
-rw-r--r-- | cpan/DB_File/DB_File.xs | 24 |
4 files changed, 28 insertions, 10 deletions
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 27fcdc469e..367a327537 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -492,7 +492,7 @@ use File::Glob qw(:case); 'DB_File' => { 'MAINTAINER' => 'pmqs', - 'DISTRIBUTION' => 'PMQS/DB_File-1.827.tar.gz', + 'DISTRIBUTION' => 'PMQS/DB_File-1.828.tar.gz', 'FILES' => q[cpan/DB_File], 'EXCLUDED' => [ qr{^patches/}, diff --git a/cpan/DB_File/Changes b/cpan/DB_File/Changes index a650c75470..c76b08e35a 100644 --- a/cpan/DB_File/Changes +++ b/cpan/DB_File/Changes @@ -1,3 +1,7 @@ +1.828 7 May 2013 + + * Minor change to build with Berkeley DB 6.x + 1.827 25 Jan 2012 * DB_File.pm - Don't use "@_" construct diff --git a/cpan/DB_File/DB_File.pm b/cpan/DB_File/DB_File.pm index 58cbebeeae..2828770acc 100644 --- a/cpan/DB_File/DB_File.pm +++ b/cpan/DB_File/DB_File.pm @@ -1,10 +1,8 @@ # DB_File.pm -- Perl 5 interface to Berkeley DB # -# written by Paul Marquess (pmqs@cpan.org) -# last modified 28th October 2007 -# version 1.818 +# Written by Paul Marquess (pmqs@cpan.org) # -# Copyright (c) 1995-2009 Paul Marquess. All rights reserved. +# Copyright (c) 1995-2013 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. @@ -165,7 +163,7 @@ our ($db_version, $use_XSLoader, $splice_end_array_no_length, $splice_end_array, use Carp; -$VERSION = "1.827" ; +$VERSION = "1.828" ; $VERSION = eval $VERSION; # needed for dev releases { diff --git a/cpan/DB_File/DB_File.xs b/cpan/DB_File/DB_File.xs index 6790d5d3a6..d7958feb08 100644 --- a/cpan/DB_File/DB_File.xs +++ b/cpan/DB_File/DB_File.xs @@ -2,13 +2,11 @@ DB_File.xs -- Perl 5 interface to Berkeley DB - written by Paul Marquess <pmqs@cpan.org> - last modified 4th February 2007 - version 1.818 + Written by Paul Marquess <pmqs@cpan.org> All comments/suggestions/problems are welcome - Copyright (c) 1995-2012 Paul Marquess. All rights reserved. + Copyright (c) 1995-2013 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. @@ -208,6 +206,10 @@ # define AT_LEAST_DB_4_3 #endif +#if DB_VERSION_MAJOR >= 6 +# define AT_LEAST_DB_6_0 +#endif + #ifdef AT_LEAST_DB_3_3 # define WANT_ERROR #endif @@ -536,6 +538,19 @@ tidyUp(DB_File db) static int + +#ifdef AT_LEAST_DB_6_0 +#ifdef CAN_PROTOTYPE +btree_compare(DB * db, const DBT *key1, const DBT *key2, size_t* locp) +#else +btree_compare(db, key1, key2, locp) +DB * db ; +const DBT * key1 ; +const DBT * key2 ; +size_t* locp; +#endif /* CAN_PROTOTYPE */ + +#else /* Berkeley DB < 6.0 */ #ifdef AT_LEAST_DB_3_2 #ifdef CAN_PROTOTYPE @@ -558,6 +573,7 @@ const DBT * key2 ; #endif #endif +#endif { #ifdef dTHX |