From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 13 Nov 2007 09:15:15 +0000 (+0000)
Subject: Re-apply change #30562 (thanks to Abe Timmerman)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ab1ff0064c6a77e91622301e8e9a5ae487a6e623;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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) ;