+#if VMG_UVAR
+STATIC I32 vmg_svt_val(pTHX_ IV action, SV *sv) {
+ struct ufuncs *uf;
+ MAGIC *mg;
+ SV *key = NULL;
+
+ mg = mg_find(sv, PERL_MAGIC_uvar);
+ /* mg can't be NULL or we wouldn't be there. */
+ key = mg->mg_obj;
+ uf = (struct ufuncs *) mg->mg_ptr;
+
+ if (uf[1].uf_val != NULL) { uf[1].uf_val(aTHX_ action, sv); }
+ if (uf[1].uf_set != NULL) { uf[1].uf_set(aTHX_ action, sv); }
+
+ action &= HV_FETCH_ISSTORE | HV_FETCH_ISEXISTS | HV_FETCH_LVALUE | HV_DELETE;
+ for (mg = SvMAGIC(sv); mg; mg = mg->mg_moremagic) {
+ MGWIZ *w;
+ if ((mg->mg_type != PERL_MAGIC_ext)
+ || (mg->mg_private < SIG_MIN)
+ || (mg->mg_private > SIG_MAX)) { continue; }
+ w = SV2MGWIZ(mg->mg_ptr);
+ switch (action) {
+ case 0:
+ vmg_cb_call2(w->cb_fetch, sv, mg->mg_obj, key);
+ break;
+ case HV_FETCH_ISSTORE:
+ case HV_FETCH_LVALUE:
+ case (HV_FETCH_ISSTORE|HV_FETCH_LVALUE):
+ vmg_cb_call2(w->cb_store, sv, mg->mg_obj, key);
+ break;
+ case HV_FETCH_ISEXISTS:
+ vmg_cb_call2(w->cb_exists, sv, mg->mg_obj, key);
+ break;
+ case HV_DELETE:
+ vmg_cb_call2(w->cb_delete, sv, mg->mg_obj, key);
+ break;
+ }
+ }
+
+ return 0;
+}
+#endif /* VMG_UVAR */
+