Apply Stas's mg_get patch and document Jeff's in Changes

git-svn-id: https://svn.perl.org/modules/dbi/trunk@969 50811bd7-b8ce-0310-adc1-d9db26280581
ilmari · Apr 10, 2005 · 24dc02e · 24dc02e
1 parent 0810e02
commit 24dc02e
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 0 deletions.
diff --git a/Changes b/Changes
@@ -8,6 +8,7 @@ DBI::Changes - List of significant changes to the DBI
 
   Fixed croak() in DBD::NullP thanks to Sergey Skvortsov.
   Fixed handling of take_imp_data() and dbi_imp_data attribute.
+  Fixed bugs in DBD::DBM thanks to Jeff Zucker.
 
   Changed warning about multiple copies of Driver.xst found in @INC
     to ignore duplicated directories thanks to Ed Avis.

diff --git a/DBI.xs b/DBI.xs
@@ -993,6 +993,8 @@ dbih_setup_handle(SV *orv, char *imp_class, SV *parent, SV *imp_datasv)
 
     if ((svp = hv_fetch((HV*)SvRV(h), "dbi_imp_data", 12, 0))) {
         dbi_imp_data = *svp;
+	if (SvGMAGICAL(dbi_imp_data))  /* call FETCH via magic */
+	    mg_get(dbi_imp_data);
     }
 
     DBI_LOCK;