Re-apply change #30562 (thanks to Abe Timmerman)

p4raw-link: @30562 on //depot/perl: 157686ebd1035e2697e51fcfa2e7de145ea36e05

p4raw-id: //depot/perl@32299

diff --git a/ext/DB_File/DB_File.pm b/ext/DB_File/DB_File.pm
index 09543d7..42913fb 100644 (file)
--- a/ext/DB_File/DB_File.pm
+++ b/ext/DB_File/DB_File.pm
@@ -165,7 +165,7 @@ our ($db_version, $use_XSLoader, $splice_end_array, $Error);
 use Carp;
 
 
-$VERSION = "1.816" ;
+$VERSION = "1.816_1" ;
 
 {
     local $SIG{__WARN__} = sub {$splice_end_array = "@_";};

diff --git a/ext/DB_File/DB_File.xs b/ext/DB_File/DB_File.xs
index 6e91dda..6c88a76 100644 (file)
--- a/ext/DB_File/DB_File.xs
+++ b/ext/DB_File/DB_File.xs
@@ -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) ;