14 lines
455 B
Diff
14 lines
455 B
Diff
--- DBI.xs
|
|
+++ DBI.xs
|
|
@@ -265,6 +265,10 @@
|
|
|
|
/* publish address of dbistate so dynaloaded DBD's can find it */
|
|
sv_setiv(perl_get_sv(DBISTATE_PERLNAME,1), PTR2IV(DBIS));
|
|
+#if defined(MULTIPLICITY) || defined(PERL_OBJECT) || defined(PERL_CAPI)
|
|
+ /* needed if sizeof(IV) != sizeof(void *) */
|
|
+ (*(INT2PTR(dbistate_t**, &SvIVX(DBISTATE_ADDRSV)))) = DBIS;
|
|
+#endif
|
|
|
|
DBISTATE_INIT; /* check DBD code to set DBIS from DBISTATE_PERLNAME */
|
|
|