diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-11-13 09:15:15 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-11-13 09:15:15 +0000 |
| commit | ab1ff0064c6a77e91622301e8e9a5ae487a6e623 (patch) | |
| tree | eb838b94524ce88260f35eb915ce627c32ad3df3 /ext/DB_File | |
| parent | 27a91fb4eb666b3e2ececb9b2bd3b04d05181828 (diff) | |
| download | perl-ab1ff0064c6a77e91622301e8e9a5ae487a6e623.tar.gz | |
Re-apply change #30562 (thanks to Abe Timmerman)
p4raw-link: @30562 on //depot/perl: 157686ebd1035e2697e51fcfa2e7de145ea36e05
p4raw-id: //depot/perl@32299
Diffstat (limited to 'ext/DB_File')
| -rw-r--r-- | ext/DB_File/DB_File.pm | 2 | ||||
| -rw-r--r-- | ext/DB_File/DB_File.xs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/ext/DB_File/DB_File.pm b/ext/DB_File/DB_File.pm index 09543d7ab6..42913fb9fa 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 6e91dda61a..6c88a76144 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) ; |