This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
DB_File with g++ and db v1
authorJarkko Hietaniemi <jhi@iki.fi>
Mon, 12 Mar 2007 22:01:34 +0000 (18:01 -0400)
committerSteve Peters <steve@fisharerojo.org>
Tue, 13 Mar 2007 15:54:56 +0000 (15:54 +0000)
Message-ID: <45F605FE.1090606@iki.fi>

p4raw-id: //depot/perl@30562

ext/DB_File/DB_File.xs

index 6e91dda..5973138 100644 (file)
@@ -1192,7 +1192,7 @@ SV *   sv ;
             Flags |= DB_TRUNCATE ;
 #endif
 
-        status = db_open(name, RETVAL->type, Flags, mode, NULL, openinfo, &RETVAL->dbp) ; 
+        status = db_open(name, RETVAL->type, Flags, mode, NULL, (DB_INFO*) openinfo, &RETVAL->dbp) ; 
         if (status == 0)
 #if DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR < 6
             status = (RETVAL->dbp->cursor)(RETVAL->dbp, NULL, &RETVAL->cursor) ;