This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ANSI prototypes for Berkeley DB API testing.
authorH.Merijn Brand - Tux <h.m.brand@xs4all.nl>
Tue, 15 Jul 2014 13:06:36 +0000 (15:06 +0200)
committerH.Merijn Brand - Tux <h.m.brand@xs4all.nl>
Tue, 15 Jul 2014 13:06:36 +0000 (15:06 +0200)
So that g++ doesn't go apoplectic.  K&R prototypes in 2014?  Impressive.

Backport of 70849829971b5be9e3df50d5854c923944cae916
Jarkko Hietaniemi <jhi@iki.fi>  2014-06-30 03:10:02

U/perl/i_db.U

index 04b0aed..085f463 100644 (file)
@@ -203,9 +203,7 @@ define)
 #include <db.h>
 
 #ifndef DB_VERSION_MAJOR
-u_int32_t hash_cb (ptr, size)
-const void *ptr;
-size_t size;
+u_int32_t hash_cb (const void* ptr, size_t size)
 {
 }
 HASHINFO info;
@@ -250,9 +248,7 @@ define)
 #include <db.h>
 
 #ifndef DB_VERSION_MAJOR
-size_t prefix_cb (key1, key2)
-const DBT *key1;
-const DBT *key2;
+size_t prefix_cb (const DBT *key1, const DBT *key2)
 {
 }
 BTREEINFO info;