diff options
Diffstat (limited to 'lang/perl/DB_File/DB_File.xs')
| -rw-r--r-- | lang/perl/DB_File/DB_File.xs | 24 |
1 files changed, 20 insertions, 4 deletions
diff --git a/lang/perl/DB_File/DB_File.xs b/lang/perl/DB_File/DB_File.xs index e61dc134..c0aecf97 100644 --- a/lang/perl/DB_File/DB_File.xs +++ b/lang/perl/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-2009 Paul Marquess. All rights reserved. + Copyright (c) 1995-2014 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 |